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PROGRAM NAME 
ANALOG INPUT 

Al COMPARATOR 1ST 

SCOPE LOOP XXX 
A I COMP 2ND 

SCOPE LOOP XXXI 
A! DC RANDOM F T 
Al OC RAN 1ST 

SCOPE LOOP XXVIII 
A I OC RAN 2ND 

SCOPE LOOP XXIX 
A I OC RAN 1ST OVERLAP 

SCOPE LOOP XXXII 
Al DC RAN 2ND OVERLAP 

SCOPE LOOP XXXIII 
A I DC SEQUENT FUNCT TEST 
Al DC SEQ 1ST 

SCOPE LOOP XXVI 
Al DC SEQ 2ND Al 

SCOPE LOOP XXVII 
A I OPC FUNCTION TEST 
A I DPC ONE MLPX POINT 1ST 

SCOPE LOOP XXIV 
A I DPC ONE MPLX POINT 2ND 

SCOPE LOOP XXV 

ANALOG OUTPUT AND DIGITAL OUTPUT 

AO FUNCTION TEST 

DAO DPC LD ONE DGT OR REG 

SCOPE LOOP XXXIX 
DO FUNCTION TEST 
DAO OPC PULSE OUTPUT 

SCOPE LOOP XXXVIII 
DAO DC PULSE OUTPUT 

SCOPE LOOP XL 

DIGITAL INPUT 

Dl DC FUNCTION TEST 
Dl OC RANDOM 

SCOPE LOOP XXXV 
Dl DPC READ TO Q REG 

SCOPE LOOP XXXIV 
01 DPC FUNCTION TEST 
8 BIT PULSE COUNTER 

SCOPE LOOP XXXVII 
16 BIT PULSE COUNTER 

SCOPE LOOP XXXVI 
PI PROCESS INTERRUPT 

SCOPE LOOP XLI I 

GENERAL AND SCOPING LOOPS 

SENSE OSW EXERCISER 
SCOPING LOOPS 



PID 


PROGRAM NAME 


PID 




LOADERS 






AUX DIAGNOSTIC LOADER 


08AI-0 


08C8-0 


BASIC DIAGNOSTIC LOADER 


0888-0 




PAPER TAPE AUX DIAG LOR 


08A0-0 


08C8-0 


PAPER TAPE BASIC ^IAG LD 


08BC-0 


0821-1 


PAPER TAPE REL0C4.bR 


08B0-2 




RELOCATABLE DIAG LOADER 


0881-2 


08C8-0 


DIMAL INTITIAL LOADER 


0887-0 




DIMAL INITIAL TAPE LDR 


08B7-0 


08C8-0 


MAIN FRAME CARDS 




08C8-0 


MONITOR ENGLISH MESSAGE DECK 


080C-0 




CAR EXERCISER 


08B5-0 


Q8C8-0 


DIAGNOSTIC MONITOR 


0801-1 


0822-0 


HIGH CORE AOJ PROG 


08C1-1 




HIGH CORE FUNCTION TEST 


98CA-1 


08C8-0 


INTERVAL TIMER F T 


0882-1 




LOW CORE ADJ PROG 


08C0-I 


08C8-1 


LOW CORE FUNCTION TEST 


08CC-0 


0823-0 


METER EXERCISER 


08B6-0 




MONITOR HEADER PROGRAM 


0800-1 


08C8-0 


PROCESSOR-CONTROLLER F T 


08B4-1 




0-9 CORE FUNCTION TEST 


08CB-I 


08C8-0 


DIMAL SYSTEM 


0802-1 




ON-LINE DIAGNOSTIC MONITOR 


0803-0 




INTERRUPT FUNCTION TEST 


0883-1 


0826-0 


STORAGE CHECK SCOPE LOOP XLI 


08C8-0 




CORE FUNCTION TEST 


08CF-0 


08C8-0 


EXTENDED CORE FUNCT TEST 


089F-0 



0827-0 

08C8-0 
08C8-0 

0824-0 

08C8-0 

08C8-0 
0825-0 

08C8-0 

08C8-0 

08C8-0 



08BA-0 
08C8-0 



(08 CF AND 089F REQUIRE AT 

LEAST 8K OF CORE) 

AUX CORE FUNCTION TEST 

(CAN BE RUN ONLY ON FEAT II 

SYSTEMS) 

MAIN FRAME PAPER TAPE 

PAPER TAPE EDIT PROG 
PAPER TAPE MON HEADER 
DIMAL SYSTEM 

UTILITY PROGRAMS 

EDIT PROGRAM 



AUX C E PROGRAM GENERT 
PAPER TAPE AUX PROG GEN 
PAPER TAPE EDIT PROG 
CE UTILITIES 

1053/1816 

AUX 1053 EXERCISER 
AUX 1816 EXERCISER 
1053 

SCOPE LOOP I 
1053 ADDITIONAL PTRS 

SCOPE LOOP I I 
1053/1816 FUNCTION TEST 
1816 READ KB AND LOAO 

SCOPE LOOP XI 
1816 2ND UNIT 

SCOPE LOOP XII 



081F-0 



08B8-0 
0800-1 
0802- I 



08C2-0 
08C3-0 
08C4-0 
08C5-0 
08AC-0 
08AD-0 
088B-0 
08C9-0 



08A5-0 
08A4-0 

08C8-0 

08C8-0 
0806-0 

08C8-0 

08C8-0 



PROGRAM NAME 

1054/1055 

AUX 1054/1055 EXERCISER 
105*4 READ AND COMP DATA 

SCOPE LOOP 1 1 I 
1055 PUNCH BINARY RIP 

SCOPE LOOP IV 
1054/1055 FUNCTION TEST 



1442 



AUX 141(2 IMAGE READ EX 
AUX 1442 PACKED RD EX 
1442 FUNCTION TEST 
1442 PUNCH 

SCOPE LOOP V 
1442 PUNCH 2ND UNIT 

SCOPE LOOP VI 
1442 READ AND COMP 

SCOPE LOOP VII 
1442 READ FOR 2ND UNIT 

SCOPE LOOP VIII 



1<*3 



AUX 1443 EXERCISER 
1443 CARRIAGE OP 
SCOPE LOOP IX 
1443 FUNCTION TEST 

1627 

AUX 1627 STRESS EXER 
1627 FUNCTION TEST 
1627 TWO PLOT OPS 

SCOPE LOOP X 
AUX 1627 REG EXER 

1810 A AND B 

AUX 1810 A-B EXERCISER 
1810 A-B FUNCTION TEST 
1810 DIAG DISK INITL 
ON-LINE DISK ANALYSIS 

PROG 
1810 STAND ALONE 
DISK ANALYSIS PROGRAM 
1810 A SEEK 

SCOPE LOOP XIII 
1810 A-B WR/RD/CMP 1ST OR 

SCOPE LOOP XIV 
1810 A-B WR/RD/CMP 2ND DR 

SCOPE LOOP XV 
1810 A-B WR/RD/CMP 3RD DR 

SCOPE LOOP XVI 
1810 B SEEK 

SCOPE LOOP XLI 1 1 



PID 


PROGRAM NAME 


PID 




2400 




08A8-0 


2400 CHAIN WRITE DR 






SCOPE LOOP XX 


08C8-0 


08C8-0 


2400 CHAIN WRITE DR 1 






SCOPE LOOP XXI 


08C8-0 


08C8-0 


2400 CONTROL 




0804-0 


SCOPE LOOP XVII 


08C8-0 




2400 CRC FUNCTION TEST 


08BD-0 




2400 FUNCTION TEST 


0807-0 


08A9-0 


2400 INTERRUPT READ DR 




08AA-0 


SCOPE LOOP XV 1 1 1 


08C8-0 


080F-0 


2400 INTERRUPT READ DR 1 






SCOPE LOOP XIX 


08C8-0 


08C8-0 


2400 INTRCHING-SKEW TEST 


0808-0 




2400 TIMING TEST 


0889-1 


08C8-0 


2400 WR/RD/CMP DR 






SCOPE LOOP XXII 


08C8-0 


08C8-0 


2400 WR/RD/CMP DRI 




Q8C8-0 


SCOPE LOOP XX 1 1 1 
360 CHANNEL 


08C8-0 




360 CHAN ADAPT SECT 1 


08CD-0 


08AB-0 


360 CHAN ADAPT SECT 2 


08CE-0 




360/1800 CH-CH SECT 1 


F404-0 


08C8-0 


360/1800 CH-CH SECT 2 


E4D5-0 


080A-0 


1800 CH-CH 






SCOPE LOOP XL IV 


08C8-0 




360 CH-CH 




08A7-0 
0805-0 


SCOPE LOOP XLV 
SELECTOR CHANNEL 


08C8-0 


08C8-0 


SEL CHAN FUNCT TEST 


0810-0 


0SA6-0 


2841 FUNCTION TEST 


0811-0 




2311 FUNCTION TEST 


0812-0 




2841 2 CHAN SW 


0813-0 


08A2-0 


2311 DISK INITIALIZER 


0814-0 


0809-1 


SEL CHAN 




0808-1 


SCOPE LOOP XLVI 


08C8-0 




2311 SCOPE LOOP XLVII 


08C8-0 


08C6-0 


SC/2841/2311 ON-LINE 


0892-0 


08C7-0 ( 


COMM ADAPT ~ — . 




08C8-0 \ 


TCA TRANSMIT/RECEIVE 


080D-0 *S 


08C 8-0 


TCA WRAPAROUND 


080E-0- >S 


08C8-0 
08C8-0 


,— t'INh U»/ SLUtt LOOPS '"" 
V LOOPS L-LVII 


o8c8-o y 


v. cTJwnrawrWFcnjE 


"0891-0 ^ 


1800/2790 LOOP ADAPTER 




08C8-0 


LA DIAG 


0828 




AS DIAG 


082C 




OFFLINE EXER 


082D 




LA ONLINE DIAG 1 


082E 




LA ONLINE DIAG II 


082F 




AS ONLINE DIAG /EXER 


0893 




SEND SYNC EXER 


0800 




2790 SCOPE LOOP XLVI II 


08C8 




2790 SINGLE STEP XL IX 


08C8 



OATt 
EC NO 



i4N0V6S 
431319 



20MAR70 
43132C 



29 JUL 70 
421273 



PROG ID 08**-* DATE 14N0V69 20MAR70 29 JUL 70 

PAGE I EC NO. 431319 431320 421273 
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GENERAL: THE PAGE MARKED "LAST PAGE" IS NOT ALWAYS THE LAST PAGE OF THE DESCRIPTIONS. 

0800 MONITOR HEADER 

I. INOEXED SHIFT INSTRUCTIONS ARE NOT TESTED. HAVING RUN THIS TEST tRROR FREE, THE 
USER MAY FALSELY ASSUME THAT ALL INSTRUCTIONS USED BY THE LOADERS AND EDIT ROUTINES 
IN THE DIAGNOSTIC MONITOR ARE WORKING CORRECTLY. 



0804 1054/1055 FUNCTION TEST 

.1. E009 MESSAGE STATES THAT THE PROGRAM COULD NOT ALIGN THE TAPE IN THE LAST .£00 CHARACTERS, 
WHEN IT SHOULD SAY JOO CHARACTERS. 

2. E014 AND E0I5 PRINT OUT ELEVEN MODIFIERS BUT ONLY SIX ARE IN THE DESCRIPTION. 

3. AUTOMATIC REALIGNMENT IS DONE EVEN THOUGH MANUAL ALIGNMENT IS CALLED FOR. 

4. A MISPUNCH IN ROUTINE 3 WILL CAUSE AN AUTOMATIC REALIGNMENT WITHOUT A COMPARE ERROR. 



0801 DIAGNOSTIC LOADER 

1. PROCESS INTERRUPTS MAY CAUSE FALSE E009 MESSAGES TO BE PRINTED. 

2. WHEN USING THE HALT ON ERROR OPTION, ONLY ONE LINE OF THE ERROR MESSAGE IS PRINTED 
THE START KEY HAS TO BE PRESSED AGAIN FOR EVERY REMAINING LINE OF THE MESSAGE 

3. MORE THAN ONE CYCLE STEALING DEVICE ON THE SAME CYCLE STEAL LEVEL MAY NOT BE HANDLED 
PROPERLY. 

4. AFTER EC 411944, EDIT ERRORS MAY OCCUR (ERROR TRAP 23) WITH PIOS 0821(AIDPC) AND 
0823(DIDPC) IF AN "F" IS USED FOR THE CHANNEL, PER INSTRUCTIONS ON PAGE 21. THE ACTUAL 
NUMBER "0" THRU "E" MAY BE USED INSTEAD OF "F". ON PAGE 23 THE LIST OF DEVICES THAT 
NEED AN AREA CODE AND DDEF SHOULD INCLUOE THE SELECTOR CHANNEL, COMMUNICATIONS ADAPTER 

5. THE OUTPUT PRINTER MAY CAUSE ERROR INDICATIONS IF SEVERAL PROGRAMS ARE LOADED IN 
BOOTSTRAP MODE WITH ENGLISH MESSAGES BYPASSED. 

6. MONITOR WITH ENGLISH MESSAGES WILL LOOP INSTEAD OF STOPPING WITH AN IDENTIFIER IN THE 
ACCUMULATOR, IF THE 1443 IS NOT READY. i«niiritn in iMt 

0802 OISK MAINTENANCE LIBRARY SYSTEM 



I. 



EQUIPMENT REQUIREMENTS FOR OIMAL AS STATED IN THE DESCRIPTION INCLUDE AN 18I0A AND A 
PAPER TAPE PUNCH. SOME SYSTEMS WITH ONLY 18I0B, OR WITHOUT A PAPER TAPE PUNCH MAY 
STILL RECEIVE PID 0802. 



0803 ONLINE DIAGNOSTIC MONITOR 

I. DO NOT USE OPTION TO STORE ON DISK PER PARAGRAPH 6.2.2 OF DESCRIPTION. 



0805 1627 FUNCTION TEST 

1. THERE IS NO DESCRIPTION FOR E003 OUTS. 

2. LAST AND FIRST PLOTS ARE PLOTTED AT THE SAME PLACE. 



0806 1053/1816 FUNCTION TEST 



1. PAGE 1A OF DESCRIPTION, TABLE 1 SHOULD SAY 0001 FOR ROUTINE 1. 

2. WHEN AN 1816 IS USED AS THE MONITOR DEVICE ON A 4MIC SYSTEM AND THE REQUEST KEY IS 
PRESSED, AN E009 MESSAGE MAY OCCUR. 

3. DEVICE ON TEST WILL BE IN RED RIBBON SHIFT AT THE END OF THE TEST. 

4. RETRY, BLAST; PER EC 411960 ARE NOT TESTED. 

0807 2400 FUNCTION TEST 

I. LOOP ON ERROR CAUSES OP (ODE CHECK. 

0808 DIAGNOSTIC DISK INITtALIZER 

1. WHEN TRYING TO INITIALIZE A VIRGIN PACK, OR A PACK WITH BAD DATA, MANY E006 MESSAGES 
WILL OCCUR ON ROUTINE 1. 

2. ON SOME MESSAGES, THE RID AND RAD VALUES ARE NOT PRINTED. 

0809 1810A/18I0B FUNCTION TEST 

1. E017 MESSAGE SHOULD PRINT IN DECIMAL THE NUMBER OF WORDS WRITTEN. THE ACTUAL PRINTOUT 
IS A LARGE UNDEFINED NUMBER. PUNCH PATCH CARD AND INSERT BEFORE END CARD. 
+0C86 D2D3 FOR EC 431319 AND 431320 
+OC83 D2D3 FOR EC 411961 



080A 



1. EOOD PRINTS OUT 6 FIELDS BUT ONLY 5 ARE DESCRIBED. 

2. EOOF IS NOT DESCRIBED; THIS IS AN EDIT ERROR. 

3. WHEN 1443 IS MONITOR DEVICE AND A MESSAGE IS PRINTED DURING SKIPS, THE CARRIAGE TAPE MAY 
GIVE AN ERROR. 



DATE 29 JUL 70 
EC NO. 421273 
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PROG ID 08** * 
PAGE 2A 



((<(<((<<<<( 



r i i i < i i i -I i ( i i i i ( ( r ( r < 



IBM MAINTENANCE DIAGNOSTIC PROGRAMS FOR THE 1 800 SYSTEM 

1800 SYSTEM SUMMARY 

INDEX OF KNOWN PROBLEMS WITH PRESENT PROGRAMS 



PART NO. 2183294 
PAGE 3 



IBM MAINTENANCE DIAGNOSTIC PROGRAMS FOR THE 1 800 SYSTEM 

1800 SYSTEM SUMMARY 

INDEX OF KNOWN PROBLEMS WITH PRESENT PROGRAMS 



PART NO. 21 8329^ 
PAGE 3A 



080B 2400 INTERCHANGE SKEW TEST 

I. IF TAPE DRIVE IS NOT READY, THE 1053 WILL PRINT SPECIAL CHARACTERS AND "0100 E009" MESSAGES. 

080F 1442 FUNCTION TEST 

I. PAGE 5 IS NOT INCLUDED IN THE TABLE OF CONTENTS 

2 ' END T CARo"'°2a48 82!!" ° m SH0UL ° " E L ° X U RPEL - PUNCH PATCH CAR ° AN ° ,NSERT BEF0RE 

08IF AUX CORE FUNCTION TEST 

1 . DESTROYS MPX ERROR LOGS 

2. LEAVES AUX CORE SET TO A's. CE SHOULO CLEAR AUX MODULES BEFORE RETURNING. TQ CUSTOMER. 

0821 A I OCR FUNCTION TEST 

I. EC NUMBER FOR 13MAY67 ON PAGE 11 OF DESCRIPTION SHOULD BE 421206B. 

0822 A I DCS FUNCTION TEST 

1. DESCRIPTION 3.5 Al PRC SHOWS 6 DIGITS IN THE TABLE WHEN THERE ARE ONLY 5. 

0823 01 OPC FUNCTION TEST 

'" P^EV P S;""eC DS 43S D T ° AV0ID ST0RAGE ™> T£CT FOLATE ON UNE. CARD,: PUNCH PATCH CARD 

CARD I +10DB 1010 7030 

CARD 2 +1 100 4C80 10D1 

A+ EC 431320 CARD I +10DC 1010 7030 

CARD 2 +11 OE 4C80 I0D2 



08B2 INTERVAL TIMER FUNCTION TEST 

1. THIS PROGRAM DOES NOT TEST CYCLE STEALING ON WAIT. 

08B4 1800 PC FUNCTION TEST 

1. INSTRUCTION AT ADDRESS 0E2D S/B BSI L FOOO. 

2. THE DESCRIPTION FOR ACTION AT STOP 3000 ON PAGE 1A SHOULO BE CLARIFIED TO SAY "SET ALL 
SENSE, PROGRAM AND DATA SWITCHES ON. 

08B8 BASIC DIAGNOSTIC LOADER 

1. DESCRIPTION ON PAGE 4, PARAGRAPH C.3 SHOULD REFER TO CARD 03 INSTEAD OF 04. 

2. DESCRIPTION ON PAGE 4, PARAGRAPH E, CROSS OUT "B REGISTER OF 3003". 

08B9 2400 TIMING TEST 

1. THE POINTS PLOTTED MAY NOT ALWAYS AGREE WITH THE NUMERICAL SUMMARY AND "E" IS INTERMITTENTLY 
PLOTTED INSTEAD OF "0" WHEN RUN WITH A MOO 2, 9 TRACK DRIVE ON A 4 MIC SYSTEM. 



0825 Dl OPC FUNCTION TEST 

I. PROCESS INTERRUPTS ARE NOT HANDLED CORRECTLY WHEN USING THE CE TEST CARD Firm- r,c rue 
SIXTEEN BITS ARE INTERRUPTED AT THE SAME TIME AND DATA FOR THE SLOWEST" WTERRuE ,1 
STORED INTO READ LOCATION OVER THE EARLY ONES BEFORE THEY CAN BE PRINTS 

2 * rNT?R^p L T T, P NfY ,NTERRUPTS ARE U$ED Wl ™ THE TEST SS.'SSj'iS.araiBi DATA FOR SLOWEST 

3 * FO H R SEQUENtIau F0R ™ E USE ° F B,T ' 5 ° N TABLES 2 * PAGE 2 ' S N0T C0RRECT ' B, T '5 OFF IS 
4. THE SENSE/PROGRAM SWITCH SETTING ON TABLE 3, PAGE 2A 5/B 11100101. 

08^26 AO FUNCTION TEST 

'* O^SELEC^ W,LL N ° T RUN ' N ° VERLAP W,TH D ° (0827 > ,F THAT "»«■•" '* INNING WITH PULSE 

'• r, z =es t ^: tust^ k= srK is :; 2 r - 
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08BB PAPER TAPE EDIT UTILITY PROGRAM 

I. DESCRIPTION ON PAGE 2, PARAGRAPH 3.2.A.I, THE B REGISTER S/B 30FF. 

08C0 CORE ADJUSTMENT PROGRAM 

I. ON PAGE 1 OF DESCRIPTION PARAGRAPH 3.1 SHOULD SAY D8C0 INSTEAD OF 0800. 

08C6 ON LINE DISK ANALYSIS PROGRAM 

I. DO NOT USE OPTION TO STORE ON DISK. 
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08C7 STAND ALONE DISK ANALYSIS PROGRAM 

'; T.iWA 1e"nfoKon° R THE DUMP SECm R0UT,ne ' reference should " "»« ™ '*• 

2. ON PAGE 4 OF DESCRIPTION, THE REFERENCE FOR THE HOME ROUTINE S/B 5.2.7. 

08C8 SCOPE LOOPS 



XXII 

XVIII 

XIV 



2400: 



1810: 
1442: 



S S ?o^ " " S£ '«""'««• »«°« cZ^Tim - „ „ tm ,„r 

ST, !?:■ Zi RITtS" X& sT/25 3 r w - MES ""'"•" »™ «•"» '«»»• 

XXX Al: OVERLAP CARD SHOULD BE REMOVED WHEN CHECKING RELAY. 
08C9 CE UTILITY PROGRAMS 

1. DUMP WILL NOT WORK WITH 1053 IN PLACE OF FIRST 1816. 

08CB 0-9 CORE FUNCTION TEST 
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NOTE A 



CLEAR 
STORAGE 
TO 70FF 



CHECK STOP ON 



PROGRAM 
LOAD 



ISOLATE 
FAILURE 1442 
READER OR 
PROGRAM LOAD 





ONE -CARD 
PROGRAMS 



PROBLEM 



CHECK WHICH 
CARD 
LAST LOADED 



% 



PROBLEM 



YES 



8-3011 CHECK 

SUM ERROR 

B-30I5 DATA 
TRF ERROR 



NOTE A 

THE FOLLOWING PROGRAMS ARE LOADED WITH 
THE BASIC LOADER 



EXIT TO PROG 



WHERE 
THE 

OF THE 
■JG CARD 



Q>^' 



RELOAD 
FROM CARD 
LAST READ 



2. 
3. 
1*. 
5. 
6. 
7. 



MONITOR HEADER 

CORE FUNCTION TEST 

CORE ADJUSTMENT PROGRAMS 

PROCESSOR CONTROLLER FUNCTION TEST 

INTERRUPT FUNCTION TEST 

INTERVAL TIMER FUNCTION TEST 

CAR EXERCISER 

Al EDIT UTILITY PROGRAM 



ISOLATL 

FAILING 

INSTRUCTION 



YES 




SEE LISTING) 



USE ONE CARD 
PROGRAMS TO 

ISOLATE 

FAILURE 



DATE OIMAY66 
EC ^15120 

DATE 010CT67 
EC ifl 1875 



DATE 01JUL66 
EC 415178 

DATE 03JUL68 
EC 4II9W. 



DATE 04N0V66 
EC 415233 

DATE 12rEC6S 
EC 411961 



DATE 30DEC66 
EC 411729 

DATE 14NOV69 
EC 431319 



DATE I5MAY67 
EC 411731 



FAGE I 
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£ 



FUNCTION 5A 
TEST EDIT 



INITIAL DIAGNOSTIC LOADING 

ANY DESIRED NO. OF TESTS 



CLEAR 
STORAGE 
TO 70FF 



PROGLEM 



B-300X 

X-FAILING ONE 

CARD PRCG SEE 

BASIC DIAG 

LOADER LIST 





3 PARTS 



PROBLEM 



PROG LOAD OR 
442 PROBLEM 

REFER TO 
BASIC LOADER 
DOCUMENTATION 



% 



NO I HEADER LOADS 

OP CODE SECTION 



PROBLEM 



LOAD AND RUN 

PROCESSOR- 
CONTROLLER FT 
P1D 08B4 



NO I HEADER LOADS 

INTERCEPT SECTION 




WA I T 6«300> 
SET SWITCHES 

NOTE 2 
PRESS START 



HEADER COMPLETES 
LOADING 



B-30B3 LOAD 

AND RUN 

INTR 

FUNCTION TEST 

PIP - Q8B3 



YES 




YES 



B-30B2 LD f. 

PUN INTERVAL 

TMR 

FUNCTION TEST 
PID - 08B2 



NO I RELOCATABLE 
LOADER 
LOADS MONITOR 



DATE 0IHAY66 
EC 415120 

DATE OIOCT 67 
EC 411875 



DATE 01JUL66 
EC V* 5 1 78 

DATE 03JUL68 
EC 411944 



DATF 04N0V66 
EC 415233 

DATE 02DEC68 
EC 411961 



DATE 30DEC66 
EC 411729 

DATE I4NOV69 
EC 431319 



1800 MONITOR HEADEF OPERATION SUMMARY 

THE HEADER PROGRAM WITH THE BASIC LOADER 
SHOULD BE RuN PRECEDING THE MONITOR WHEN 
FIRST LOADING. SHOULD THEY RUN WITHOUT 
ERROR WAITS IT IS ASSUMED THAT THE BASIC 
PROCESSOR-CONTROLLtR IS PROPERLY FUNCTIONING. 



NOTES : 
I . 



SET SWITCHES 

A. CHECK STOP - ON 

6. WRITE STORAGE PROTECT BITS - NO 

C. ALL DATA ENTRY - ON 

D. ALL SENSE /PROGRAM - OFF 

SET SWITCHES 

A. CHECK STOP - OFF 

B. WRITE STORAGE PROTECT BITS - YES 

C. ALL OTHERS - OFF 



DATE 15MAY67 
EC 411731 
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P/N 2163260 
PACE 2 




DIAGNOSTIC F.T. LOADING 



ANY DESIRED NO. 
OF TESTS 



YES 



PRESS STOP 
ON PC 



REFER WAIT 

IN 

RELOCATABLE 

LOADER 



MAKE 

READY 




P-70FF 



CHECK ERROR 
TRAP IN 
MONITOR 
LISTING 



PRESS 
START 



e~ 




DIAGNOSTIC 
FT LOADS 



SEE PAGE 7 FOR NOTES 



D001 -v wn 
NTED^"" 
PROG 

Y£SYP R( J GRAMS 

SUCCESSFULLY 
LOADED 




YES 



WAIT 
U-3001 
1>012C 



2> 



PRESS 

START 

ON 1442 



MONITOR CONTROL 
NOTE 3 



© 



NOTE 4 



SELECT 

MONITOR 

OPTIONS IF 

DESIRED 



SELECT 

PROGRAM 

OPTIONS 

IF DESIRED 



NOTE 5 



(EXECUTE \ 
PROGRAM J 



DATE 01MAY66 
EC 1(15120 

DATE 010CT67 
EC 411875 



DATE 0IJUL66 
EC *< 1 5 1 78 

DATE 03JUL68 
EC MI9V4 



DATE 04N0V66 
EC 415233 



DATE 30 DEC 66 
EC » 1 1 729 



DATE 15 MAY 67 
EC 411731 
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c 



START 




SET SWITCHES 
ALL CE SW; ON 
FORCE AUX OFF 
CE IKTR TO AUX 



DEVICE 

2310 



1816 

1053 



PID 

08A2 



08A4 
08A5 



1627 08A6 



DEPRESS 
CE INTR 
TWICE 



1627 
1054/5 



1442 



1442 



08A7 

08a8 



08A9 
08AA 



LOAD PROG 
IN READER 
MAKE READY 



1443 08AB 



SWITCH 

/OO 
/Ol 
/02 
/03 
/OB 

/Ol 
/OD 
/OO 
/XX 
/02 

/OO 

/Ol 

/02 

/03 

/04 

/Ol 

/02 

/03 

/OO 

/Ol 

/02 

/03 

/OO 

/Ol 

/XX 

/03 



FUNCTION 

MCVE ONE TRACK IN AND OUT 

OUT ONE TRACK AT A TIME 

IN ONE TRACT AT A TIME 

WRITE -READ-COMPARE INDICATION 

WRITE-READ-COMPARE NO INDICATION 

USES ONLY STANDARD SETTINGS 

NORMAL PRINT PATTERN 

NORMAL PRINT PATTERNhALTERNATING COLOR 

REGISTRATION TEST 

MANUAL CONTROL (B15 MUST BE ON) 

INITIALIZE REGISTRATION TEST 

USES ONLY STANDARD SETTINGS 

FAREWELL OR CE SERVICE STOP 

PUNCH 1 PATTERN AND STOP 

CONTINUOUS READ, NO COMPARE 

READ COMPARE 

REPRODUCE TAPE. NO COMPARE 

PUNCH TEST CARDS 

READ CARDS, IMAGE MODE 

READ COMPARE, PUNCH ERRORS 

FAREWELL SETTING 

PUNCH TEST CARDS 

READ CARDS, PACKED MODE 

READ COMPARE, PUNCH ERRORS 

NORMAL RIPPLE PRINT 

REVERSE RIPPLE PRINT 

MANUAL CONTROL (BIT 14 MUST BE ON) 

PRINT LAST LINE REPEATEDLY 
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TAKE 

OVER 

SYSTEM 



SET SWITCHES 
ALL CE SW OFF 
FORCE AUX ON 
CE INTR TO AUX 



LOAD AUX 
LOADER TURN 
FORCE AUX 
TO OFF 



SELECT PROG 
SW. TABLE 1 
DEPRESS CE 
INTR 








CE SWITCHES 
MAY IE 

CHANGED 
TABLE I 




YES 



YES 




START MAIN- 
LINE PROG OR 
USE 7 OFF 




SELECT 

ANOTHER 

PROGRAM 



CLEAR 

AUX 

STORAGE 



CE SWITCH 

SETTING 

/OF 



-© 



© 



CE SWITCH 
SETTING/FF 
DEPRESS CE 
INTR 



-0 



READ 

DOCUMENTATION 

AND MANUAL 



DATE 01HAY66 
EC 415120 

DATE OIOCT67 
EC 411875 



DATE 01JUL66 
EC 415178 

DAi"E 03J1IL68 
EC 411944 



DATE 04N0V66 
EC 415233 

TATE 02PFC1968 
EC 411961 



DATE 30 DEC 66 
EC 411729 

DATE 14N0V69 
EC 431319 



DATE 15 MAY 67 
EC 411731 
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BASIC LOADER (PAPER TAPE) 
OPERATION SUMMARY 



CLEAR 

STORAGE 
TO 70FF 



PROGRAM 
LOAD 



BASIC LOADER 
(PAPER TAPE) 




PROBLEM 



PrtOG LOAD OR 
105H FROELEH 
■*• SEE SEC. 3-2 

OF DOCUI'iENmnOH 



YES 



PLACE PROGRAM 

LEADER TAPE 

IN READER 



% 



PRESS 
START 




RUN~ 14 SEC 



TEST^ 
PROGRAM^SiJL. 
LOADS^ 



YES 



Q 



XX 



NO 



EXIT TO PROG 



$ 



SEE TABLE 2 

OF BASIC 

LOADER (PT) 

DOCUMENTATION 




REFER TO 

PROGRAM 

LISTINGS TO 

ISOLATE PROB. 
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INITIAL DIAGNOSTIC LOADING 
(PAPER TAPE) 






CLEAR 
STORAGE 
TO 70FF 








1 








SET 
SWITCHES 
NOTE 1 








LOAD PROGRAM 


1 BASIC LOADER] 
"* (PAPER TAPE)! 


SEE BASIC 
LOADER (PT) 
PROCEDURES 




NO 


v^WAITK 

< 1-0001 > 

>vB-30FF S 











£ 



YES 



PLACE PROGRAM 

IN READCR AND 

PRESS START 



THE FOLLOWING PROGRAMS ARE LOADED 
WITH THE BASIC LOADER (PAPER TAPE) 



PROBLEM 





1. 


MONITOR HEADER 


PROGRAM TO 1 


2. 


CORE FUNCTION TEST 


BE LOADED 


3- 


CORE ADJUSTMENT PROGRAMS 




U. 


PROCESSOR-CONTROLLER FUNCTION TEST 




5. 


INTERRUPT FUNCTION TEST 




6. 


INTERVAL TIMER FUNCTION TEST 




7- 


CAR EXERCISER 



m 



x 

X-FA1LINGCNE 
CARD PROG SEE 
BASIC DIAG 
LOADER LIST 



5 



YES 




MONITOR 
HEADER 



RUNS ~ 1U SEC 



HEADER LOADS 
OP CODE SECTION 



PROBLEM 



YES 



LOAD AND RUN 
PROCESSOR- 
CONTROLLER FT 
PIO 08BH 



HEADER LOADS 
INTERRUPT SECTION 



"6 



1800 MONITOR HEADER OPERATION SUMMARY 

THE HEADER PROGRAM WITH THE BASIC LOADER 
SHO.LD BE RUW PRECEDING THE MONITOR WHEN 
FIRST LOADING. SHOULD THEY RIN WITHOUT 
ERRC=t WAITS IT IS ASSUMED THAT THE BASIC 
PROCESSOR CONTROLLER IS PROPERLY 
FUNCTIONING. 



WAIT B-3001 

SET SWITCHES 

NOTE 2 

PRESS START 



HEADER COMPLETES 
LOADING 



NOTE: 

THE FOLLOWING MANUAL-ENTRY TEST ROUTINES 
ARE DESCRIBED IN THE DOCUMENTATION FOR 
THE BASIC LOADER (PT) TO AID IN THE 
ISOLATION OF FAILURES. 



B-30B3 LOAD 

AND RUN 

INTR 

FUNCTION TEST 

PIP - 08B3 











1. SENSE DSW - NO RESET 




I 




1 


2. SENSE DSW - RESET 




i 




i 


3- FEED PAPER TAPE 




/-N 




<S 


4. READ PAPER TAPE 




(' J 


1 


, 


5. DATA-PATH TEST 




v^/ 




<-S 


6. ADD TEST 


DATE 0IRAY66 


DATE 0IJUL66 ' 


DATE 04N0V66 


DATE 30 DEC 66 


DATE IS MAY 67 


EC 1|15I20 


EC ** 1 5 1 78 


EC 1)15233 


EC 411729 


EC I»1I73I PA( 


DATE 010CT67 


DATE 03JUL68 


DATE 02DEC68 


DATE 14N0V69 




EC 411875 


EC 411944 


FC 1(11961 


EC 431319 
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YES 




NOTES: 
1. 



2. 



SET SWITCHES 

A. CHECK STOP - ON 

B. WRITE STORAGE PROTECT BITS - NO 

C. ALL DATA ENTRY - ON 

D. ALL SENSE/PROGRAM - OFF 

SET SWITCHES 

A. CHECK STOP - OFF 

B. WRITE STORAGE PROTECT BITS - YES 

C. ALL OTHERS - OFF 



$ 



B=30B2 LD v*. 

RUN INTERVAL 

TMR 

FUNCTION TEST 

P'P -08B2 



SEE NEXT PAG 



3 



$ 



DATE 0W-AY66 
.EC 415120 

DATE 010CT67 
EC 41 1875 



DATE 01JUL66 
EC 415178 

DATE 03JUL68 
EC 411944 



DATE 0l*N0V66 
EC 415233 

DATE 02DEC68 
EC 411961 



DATE 30 DEC 66 
EC 411729 

DATE I4N0V69 
EC 431319 



DATE 15 MAY 67 
EC 411731 



PACE 3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

OPERATION SUMMARY DIAGNOSTIC FUNCTION TEST LOADING 

(PAPER TAPE) 

THE MONITOR CONTROLLED 1800 DIAGNOSTIC FUNCTION TESTS ARE 0ES1GNED TO \ I 

ENSURE THE PROPER OPERATION OF ALL I/O HARDWARE ASSUMING THAT THE 
PROCESSOR-CONTROLLER IS FUNCTION PROPERLY. 
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NOTES: 



1. SET SWITCHES 

A. CHECK STOP - ON 

B. WRITE STORAGE PROTECT BITS - NO 

C. ALL OTHER SWITCHES - OFF 

2. SET SWITCHES 

A. CHECK STOP - OFF 

B. WRITE STORAGE PROTECT BITS - YES 

C. SET DATA ENTRY SWITCHES THROUGH 
LOADING ADDRESS OF FUNCTION TEST. 
AT CCOO. 

D. 3IT SWITCH 8 

OFF - LOAD SINGLE FROGRAM 
ON - LOAD OVERLAP PROGRAMS 



3. SELECT MONITOR CON.ROL OPTIONS 

A. SET SWITCHES FOR OPTIONS DESIRED PER TABLE 

B. PRESS CONSOLE INTERRUPT 

C. AWAIT ACCEPTANCE PRINTOUT 



2 TO ESTABLISH INITIAL 
IF OFF - PROGRAM LOADS 




YES 




<D 



SET SWITCHES 
NOTE I 



I*. 



SELECT TEST PROGRAM OPTIONS 

A. SET SWS FOR DESIRED TEST PROGRAM OPTIONS IN TABLES 0, 



B. 
C. 



I, 2, OR 3 OF FROGRAM DOCUMENTATION, OR SEE HIGHLIGHTS 
OF TEST PROGRAM OPTIONS GIVEN BELOW. 
PRESS CONSOLE INTERRUPT 
AWAIT ACCEPTANCE PRINTOUT 




1 (PAPER TAPE) 



5. 



EXECUTE PROGRAM 

A. SET SENSE/PROGRAM SWITCHES TO 11 

B. SET DATA ENTRY SWITCHES PER TABLE I, BELOW 

C. PRESS CONSOLE INTERRUPT 

D. AWAIT ACCEPTANCE PRINTOUT 

TABLE MONITOR CONTROL OPTIONS 



S/P 


DATA ENTRY 


OPTION 


SWS 


SWS 






01 


BIT 11 - 


ON 


LOOP PROGRAMS 


01 


BIT 12 - 


ON 


LOOP ON ERROR 


01 


BIT 13 - 


ON 


BYPASS ERROR PRINTOUTS 


01 


BIT 14 - 


ON 


HALT ON ERROR 


MONITOR 


EXECUTE 






S/P 


DATA ENTRY 


PROGRAM 


SWS 


SWS 






41 


0104 




1054/1055 


1*1 


0105 




1627 


41 


0106 




1053/1816 


41 


0107 




2401/2402 


1*1 


0108 




2315 INITIALIZATION 


41 


0109 




2310 


1*1 


01 10 




SELECTOR CHANNEL 


1*1 


0111 




2841 FUNCTION TEST 


1*1 


0112 




23 It FUNCTION TEST 


i*l 


0113 




2841 2 CHAN SW TEST 


1*1 


0114 




2311 C.E. DISK INITIALIZATION 


1*1 


OIOA 




1443 


1*1 


010D 




TCA TRANSMIT/RECEIVE 


1*1 


OIOE 




TCA WRAPAROUND 



{S> 




PROBLEM 



CK IF 

PROGRAM 

LOADED 

PROPERLY 



, diagnostT_ 
(hon i tor with . 

STANDARD EDITl 



B-30FD WAIT 
PAPER TAPE 
READER NOT 
READY FIX i. 
PRESS START 






PLACE NEW 

EDIT TAPE IN 

READER OR 

SEE REL LDR 

DOCUMENTATION 



START 



DATE 01 MAY 66 
EC 415120 

DATE OIOCT67 
EC 411875 



DATE 01JUL66 
EC 415178 

DATE 03JUL68 
EC 411944 



DATE 04N0V66 
EC 415233 

DATE 02DEC68 
EC 411961 



DATE 30 DEC 66 
EC 411729 

DATE I4H0V69 
EC 431319 



DATE 15 MAY 67 
EC 411731 



PAGE 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
OPERATION SUMMARY 



P/N 2183260 
PAGE 4A 



TABLE I MONITOR EXECUTE (CONT.) 
S/P DATA ENTRY PROGRAM 



SWS 

41 
41 
41 
41 
41 
41 
41 
41 
41 
41 

41 

41 



SWS 

OIOF 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0I2B 

012C 

0I2D 



1442 

Al UTILITY 
A I DC RANDOM 
Al DC SEQUENTIAL 
A I DPC 
Dl DC 
Dl DPC 
AO 
DO 

2790 LOOP 
ADAPT DFT 
2791/2793 
AREA STATION 
2791/2793 
C.E. 
EXER- 
CISER 




WAIT 
B=3002 



SET 

SWITCHES 

NOTE 2 




YES 



-e> 



REFER WAIT 

IN 

RELOCATABLE 

LOADER 



PLACE FUNCTION! 
TEST TAPE IN 
READER 




MAKE 
READY 



PRESS 
START 



PROGRAM LOADS 
AND WAITS AT 
B-3005 



./isV 

/STD EDIT\ n0 ^ 
.ACCEPTABLE/' c " 


PLACE NEW EDIT 
TAPE IN READER 
OR SEE REL LDR 
DOCUMENTATION 


JYES 








PRESS STOP 
ON PC 




B=70FF 



CHECK ERROR 
TRAP IN 
MONITOR 
LISTING 



6 




NOTE 3 



NOTE 4 



SELECT 

PROGRAM 

OPTIONS 

IF DESIRED 



V NOTE 5 



(EXECUTE "\ 
PROGRAM J 



DATE 01 MAY 66 
EC 415120 

DATE 01 OCT 67 
EC 411875 



DATE 01 JUL 66 
EC 415178 

DATE 03 JUL 68 
EC 411944 



DATE 04 NOV 66 
EC 415233 

DATE 02 DEC 68 
EC4II96I 



DATE 30 DEC 66 
EC 411729 

DATE 14N0V69 
EC 431319 



DATE 15 MAY 67 
EC 411731 
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TO COOO ALL 

:?, DE ,"1,0 CE 
S'JS TO OFF 



WUTE STC.y*E 
PROTECT TO NO 
CriT.CK STC? TO 
ON 



FUNCTION 
,i f f TESTS 
'\Va:;d EDIT 



V 




READY 14<42 
WITH BLANK 
CARDS 



PRESS START 
COLD START 
CARDS 

PUIiCHED 



LOCATION 
DIRECTORY 
ANO EDIT 
TABLE LEING 
PRINTED 



READY J'ili2 
WITH DFT 
PROGRAM DECKS 
6 EDIT 



PRESS 
START 



I 



MESSAGE 
D003 PRINTED 
SAVE PRINT 
OUT 



/YAIT 8 REGN 

C- 33 ^kB ihal J 



DATE OW0V66 
EC *»15233 

DATE 02DEC68 
EC 1111361 



DATE 30 DEC 66 
EC 411729 

DATE I4N0V69 
EC ''31319 



DATE 15 KAY 67 
EC *tl 1731 



DATE OlC:T67 
EC 41 1875 



DATE 03JUL68 
EC 411944 
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CLEAR CORE 
TO 0033 



WRITE ST0RA6C 
PROTECT TO 
YES CHECK 
STOP TO ON 



SENSE/PROGRAM 
DATA ENTRY 
AND C.E. SWS. 
TO OFF 



MOUNT CE 
DISK PACK 
ON 2310 
DISK DRIVE 



PROGRAM LOAD 
>!HAL IUITIA' 
LOAD El* 0367 



INITIAL 

LOADER WAIT 

B REG- 

3500 




INITIAL 

LOADER WAIT 

B REG • 

3502 




DATE 04H0V66 
EC 415233 

DATE 02DEC68 
EC 411961 




RCITR TO 

DIMAL INITIAL 

LOADER 

PROGRAM 

LISTING 



LOADER 

ORGAN IZOR 

SECTION WAIT 

B REG - 330$ 




PRESS CONSOLE 

START BUTTON 

TAPE READS IN 

WRITTEN ON 

DISK 




YES 



REFER TO 
LISTING AND 
DOCUMENTATION 
FOR PAPER TAPE 
DIMAL SYS. 



MESSAGE 
COOl. WAIT B 
REG - 3301 




DATE 30 DEC 66 
EC l»l 1729 

OATE I4N0V69 
EC 431319 



DATE 15 MAY 67 
EC 411731 



DATE 01OCT67 
EC 411875 



DATE 03JUL68 
EC 41IS44 



MESSAGE DOOI 
LIST OF 
LOCATION 
DIRECTORY 



MESSAGE D002 
LIST OF 
CONTENT OF 
EDIT TABLE 



MESSAGE 
COOS WAIT 
B REG - 
3308 



READY 1055 
WITH BLANK 
TAPE 



PRESS CONSOLE 


ST/.r.T SAVE 


CALL TAPE 


PUNCHED 



MESSAGE D003 
SAVE THIS 
MESSAGE 



WAIT 
/B REG - 3300 
OPERATIONS 
COMPLETED 
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CLEAR 
STORAGE 
TO 0000 
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UITE STC? U \GE 
PROTECT TO 
NO CHECK 
STOP TO ON 



SEi;SE/rr.OGRAM 
C.E. AND 
DATA ENTRY 
SWS. TO OFF 




MOUNT DIMAL 
PACK 
ON DRIVE 



1PL COLD 
START CARD 



DATE 04N0V66 
EC 415223 

DATE 02DEC68 
EC 41196! 



YES 



INSURE 
ACCESS ARM 
AT HOME 






REFER TO 
HEADER TEST 
ERROR PROCE- 
DURE IN 
DOCUMENTATION 



REFER TO 
COLD START 
LOADER 
LISTING 



WAIT 3308 
READY OUTPUT 
DEVIVE WITH 
BLANK CARD OR 
TAPE-PRESS ST 



6 



PROGRAM 
STOPS AT 
WAIT B REG 
■ 3300 



(SELECT 
THE DESIRED 
OPTION 



YES 



SNS/PROG - T0 

SWITCH 0PTI0N 

ADD PROGRAM 

1 - DELETE PROGRAM 

2 - - CHANGE EDIT 

3 LIST CONTENTS OF 

LOCATION DIRECTORY 

4 LIST CONTENTS OF 

EDIT TABLE 

5 PUNCH COLD START 

CALL CARDS OR TAPE 

6 LIST COLO START 

SEEK COUNT FOR 
DATA ENTRY SWITCH 
CALL ROUTINES 




YES 



PROGRAM 
AT WAIT 
3305 



YES 



PROGRAM 
AT WAIT 
3309 




r READY 1442 
WITH PROGRAMS 
t PRESS START 



ENTER PID 
TO DELETE 
IN P.E. 8-15 
PRESS START 




YES 




DATE 30 DEC 66 
EC 411729 

DATE 14N0V69 
EC **3 1 3 1 9 



DATE 15 MAY 67 
EC 411731 



DATE 010CT67 
EC '411875 



DATE 03JUL68 
EC 4U944 
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CLEAR 
CORE TO 
0000 



WRITE STORAGE 
PROTECT TO NO 
CHECK STOP 
SWITCH ON 



ALL SENSE 
PROGRAM DATA 
ENTRY & C.E. 
SWS. OFF 




YES 



WHEN OPERATING IN 
OPERLAP MODE, THE 
LAST PROGRAM IS 
INDICATED BY 

SETTING DATA C 

SWS 0-7 TO FF AND 
DATA SWS 8-15 TO 
THE PID OF THE FINAL 
PROG TO BE LOADED 
OR 00 IF ALL PROG 
HAVE BEEN LOADED. 



INSURE 
ACCESS ARM 
AT HOME 



3- 



NO 



PROGRAM LOAD 
COLD START 
CARD 



PROGRAM LOAD 
COLD START 
TAPE 




YES 



YES 



REFER TO 
HEADER TEST 
ERROR 
PROCEDURE IN 

DOCUMENTATION 



REFER TO WAIT 
DESCRIPTION 
IN COLD START 
LOADER 
LISTING 



DATE 04N0V66 
EC 415233 

DATE 02DEC68 
EC 411961 



DATE 30 DEC 66 
EC 1(11729 

DATE I4N0V69 
EC 431319 



MESSAGE C006 
WAIT B REG 
-3400 



SET PID OF 
DESIRED DFT 
IN DATA SWS. 
8 THROUGH 15 




DIMAL INPUTS 
AND EDITS 
SELECTED DFT 
& BRANCHES 
TO IT. 



REFER TO 
DOCUMENTATION 
FOR SELECTED 
DFT FOR DFT 
OPERATION 




TO RETURN TO 
DIMAL PRESS 
RESET SET I. 
CTR«0050lt ■ 
PRESS START 



6 



DATE 15 MAY 67 
EC 411731 



DATE 010CT67 
EC 411875 



DIMAL 
INPUTS 
DIAGNOSTIC 
MONITOR 




U^iT B REG 
= 3005 PRESS 
CONSOLE 
START 



E 



DIMAL INPUTS 
AND EDITS 
SELECTED DFT 



cimal edits 
ciag::ostic 

HON ITOR 



CIAGNOSTIC 
MONITOR WAIT 
6 REG - 3002 



DIAGNOSTIC 
MONITOR 
WAIT B REG 
- 3001 



SELECT MODE 
CF OPERATION 
(OVERLAP OR 
BOOTSTRAP) 



REFER TO 

01 AG, HON AND 
DFT 

DOCUMENTATION 
FOR OPERATION 



SELECT PROG 
LOAD ADDRESS 
FEFER TO DIAG 
.'•ON .DOCUMENT 




WAIT B REG 
- 3006 
PRESS START 



6 



TO RETURN TO 
DIMAL RESET 
SET IC=0050 
AND START 



DATE 03JUL68 
EC 411944 



6 
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IBM MAINTENANCE DIAGNOSTIC FAOGRAN' FOR THE IGOO SVSTEN 
OtAGMOSTIC MONITOR HEAOER PROGAAN 







•1 


t 












• 


/ • 




o 


{ 1 


mast no. 

►AS* ! 


21S32AB 


-, 





•yr 



iP,Vv> 



c 



TABLE OP CONTENTS 



PARAGRAPH 

1. PUAPOSE. ....... 

2.. REQUIREMENTS ..... 



• • • 



2.1 
2.2 



program 
equipment 



OPERATING PAOCEOURE. 



PAfi* 
I 



IA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE IDOO SYSTEM 
OIACNCSTIC MONITOR HEAOEA PROGRAM 

S. OPERATING PROCEDURE 

3.1 PROGRAM LOADING 



PANT NO. 
PAGE IA 



218 3268 



A. CAAO VERSION 
1 



SET DATA ENTAV 



3. 



3.1 PAOCAAN LOADING 

3.2 PROGRAM OPERATION 

1.3 PROGRAM HALTS 

3.4 TERMINATION PROCEDURE 

«. PRINTOUT I NONE > 



SET PROGAAN ANO SENSE SNITCHES ALL TO OFF. 

"IceIhe'bASIC ^AGNOSTIC LOADER, THE ISOO DIAGNOSTIC 
MONITOR HeSdER P.OGA.N. THE "^Or.TA.LE DIAGNOSTIC LOAOEA. 
THE 1800 DIAGNOSTIC MONITOR. AND THE DIAGNOSTIC FUNCTION 

TM T 1«00 OIAGNCSTIC^hSnITOR HEAOEA PROGRAM 108001 IS LOAOEO 
BT THE ISOO BASIC DIAGNOSTIC LOAOER. SEE THE 1800 BASIC 
OUGNOSTIC LOACEA DOCUMENTATION FOA THE DESCRIPTION OF THE 
LOADING PAOCEOURE. 



PAPER TAPE VEASION 



3. COMMENTS ........•••••••••••*******"" 

A. APPENDIX INCNEi 

.1. PURPOSE 

TO VERIFY PROPER OPERATION OF THOSE BASIC FUNCTIONS 0* THE PC REQUIRES 8V 
iaCO CIAGNCSTIC NCNITOA. * 

••..........—••••—•*•••••••••••"••••••••••••••••••—••***••— ** <W *—***~ 

• PROGRAM AUNNI&GTTINE # 

• 2 NICAOSEC. NACHINE - APPACTIHATELV 2.3 NIN • 

• A NICAOSEC. NACHINE - APPROXIMATELY 3.0 NIN • 

• RUN TINE CNECKEO ON 2 NICAO'EC. NACHINE WITH TINEA* • 
« TINE BASES OF .125, 1.0, ANO 44.0 MILLISECONDS. * 



1 

"» I ,1 

o ' --. 

1 

t 



l. 

2. 



3. 



A. 



SET OAT A 



••••••••••••••••••••••••••••••*•• 



2. REQUIREMENTS 
A.l PROGRAM 

A. 1MB BASIC DIAGNOSTIC LOAOER 

1. CAAO 

2. PAPER TAPE 

2.2 EQUIPMENT 

A. 1BC1 OR 1802 

B. 1442 OR 1034 



SET THE PAOGAAN/SENSE AND CE SNITCHES ALL TO OFF. 

LoIo'THE'IgO^aisic^lSGNOSTIC LOAOEA INTO CORE STORAGE. 
««A TO THE 1800 BASIC OIACNCSTIC LOAOER DOCUMENTATION FOA 

SPECIFIC LOAOING INSTRUCTIONS. PROC. 10 08BC. 

LOAO THE 1800 CIAGNCSTIC MONITOR HEAOER PROGRAM INTO CORE. 
IF THE HEADER PROGRAM COMPLETES A SUCCESFUL PASS, it -ILL 
HALT AT WAIT B9 IB REG'IOBI). 

REFPR TO SECTION J. 1.2.8 IN THE MONITOR DOCUMENTATION. FOA 
LOAOII* INSTRUCTIONS CONCERNING THE NCNITOA ANO THE 
OUGNOSTIC FUNCTION TESTS. 

NOTE 

kHEN USING THE CARD VERSION, DO NOT PLACE THE 
BLANK CAROS SPECIFIED IN THE BASIC LOADER 
DOCUMENTATION BEHINO THE PONITOA HEAOER 
PROGAAN. 

3.2 PROGAAN OPERATION 

TUCK t« ONE NORMAL WAIT IN THIS PROGRAM. THE B REGISTER WILL 
CMfSlN 3001. REFER TO SECTION S.3. SHOULD AN ERROR BE OETECTEO IN 
"" AGNCST C PCMTOR HiACER P«OGR.M A WAIT -ILL OCCUR WITH THE PIO 
OF THE PROGRAM TO BE RUN IN BITS 8-15 OF THE B REGISTER. THE 
APPROPRIATE PROGRAM SHCULO THEN BE RUN FRO- THE LIST BELON. 



1. PROCESSOR FUNCTION TEST 

2. CORE FUNCTirt TEST 

3. INTERRUPT FUNCTION TEST 

A. INTERVAL TIMER FUNCTION TEST 

S. CAA EXERCISER 



PIO 
OBBA 

OBBT 
0883 
0882 
0883 



• NOTE 1 



NOTE 
NOTE 



9.3 



CATE 2BFEBAA 01 JUL 44 

EC NO. 413120 4131TB 



10 
PACE 1 



0B0O-* 



1 



NOTE 1 
ONLV THESE PAOGAANS ARE INCLUCEO IN THE PONITOA «*°" 
PAOGAAP. SHOULD STORAGE PARITT ERROR OA STORAGE PROTECT 
VIOLATIONS OCCUR THE CORE FUNCTION TEST SHOULD BE RUN. 
SHOULD CAA CHECKS CCCUA THE CAA EXERCISER PROGRAM 
SHOULD BE RUN. 

PROGRAM HALTS 

THCRC IS ONE NORMAL NAIT IN THIS PROGRAM. THE B REGISTER NILL 
CmTAIN 3001. WHEN THIS NAIT OCCURS SET THE CHECK STOP SNITCM TO 
OFF ANO THE NAME STORAGE PROTECT SNITCH TO VES. All EAAOA WAITS 
ARE OESCRIBEO IN THE WAIT OESCAIPTION SECTION PAECEOINC THE OP CODE 
PROGRAM LISTING. 



■) 



CATC 28FEBAA 01 JUL 44 
EC NO. 413120 4131TB 



10 

PAGE IA 



0G00-* 



1 
*l 
-> 

"V 



I 

c 
c 
c 
c 

■t 
(■■ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1(00 SYSTEM 

0IMMIIK MMITM MINI ngtMN 



rMT MO. 218S2AB 
M6C 2 



J.4 TERMINATION PROCEDURE 
A. CMO INPUT- 

MHEN TME MEAOER PROGRAM MAS COMPLETED A SUCCESFM, PASS, THE 
RELOCATABLE DIAGNOSTIC LCACEA MILL BE LOAOEO. 

». PAPER TAPE INPUT- 
WHEN THE MEAOER PROGRAM HAS COMPLETEO A SUCCESFM. PASS. THE 
PROGRAM KILL HALT AT MAIT 89 (B REO10B91. THc OPERATOR SHOULD 
NOW LOAO THE RELOCATABLE DIAGNOSTIC LOAOER. REFER TO SECTION 
9.1. 2. S OF THE DIAGNOSTIC MONITOR DOCUMENTATION. PROG. 10 0801. 

PRINTOUT INCNEI 
COMMENTS 

THE IBOO DIAGNOSTIC MONITOR MEAOER PROGRAM CONSISTS OF 3 CORE LOADS DESIGNED 
TO PROvrOE A HIGH SFEEO VERIFICATION OF BASIC PC FUNCTIONS REQUIRED B,V THE 
IBOO DIAGNOSTIC MONITOR. THESE CORE LOADS ARE- 
OP- COCE SECTION 
INTERRUPT SECTION 
INTERVAL TIMER SECTION 

THE OP-CODE SECTION M!ll VERIFY PROPER OPERATION OF OP COOES^ANO SNITCMES. 

SUCCESSFUL COMPLETION CF THIS SECTION MILL CAUSE THE INTERRUPT "CTION TO BE 

LOAOEO. A OETFCTEC ERROR MILL RESULT IN A WAIT INSTRUCTION MITM TME B-REC - 

30B* INDICATING THAT THE PC FUNCTION TEST COBB*) SHOULD BE RUM. 

THE INTERRUPT SECTION MILL LOAO AND MAIT B-REG - JOOl. TURN * T0 ?*«.?"" KT 
SMITCK TO YES ANO CHECK STOP TO OFF. PRESS START. THE 12 BASK «■ »"■■"" 
LEVELS ANO ASSOCIATED FUNCTIONS MILL BE VERIFIED. SUCCESSFUL «°^ l "°". '.. 
THIS SECTION MILL CAUSE THE INTERVAL TIMER SECTION TO BE LOAOEC. A DETECTED 
ERROR MILL RESULT IN A MAIT B-IEG - 30BJ INDICATING THAT THE INTERRUPT 
FUNCTION TEST IOBBJ) SHOULD BE RUN. 

THE INTERVAL TIMER SECTION VEUFIES PROPER OPERATION OF THE «•»«•;»* „„, 
TIMERS ANO ASS0C1ATE0 FUNCTItHS. SUCCESSFUL COMPLETION OF THIS SECTION MILL 
CAUSE THE I8C0 RELOCATABLE DIAGNOSTIC LOADER TO BE LOAOEO ANO SUBSiOUcNTLV 
THE MCNITOR. A DETECTED EAAOIt MILL MAIT MITM B-REC - J0B2 OR 10BB INDICATING 
EXECUTION OF THE INTERVAL TIAIR FUNCTION TEST I0BB3I OR THE IBOO BASIC 
DIAGNOSTIC LOAOER (0BB8I RESPECTIVELY. 

APPENDIX INONEI 
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a 

n 
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o 
o. 



CATE 
IC MO. 



2SFEBA* 

AIS120 



01 JUL A* 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARDJ 
OP COOES SECTION 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP CODES SECTION 



30B9 



A3S 

*************************************************** 
*************************************************** 

* PROGRAM HALT DESCRIPTION SECTION 
*********************************** ******** ******** 
*************************************************** 
* 

* TO DETERMINE THE CORRECT WAIT 

* FIRST COLUMN OF 4 N'J^ERS FOR 

* COMPARISON TO THE CONTENTS OF 



SCAN THE 
AN EQUAL 
THE B-REGISTER 



028C 

3001 3001 



3002 

3082 3082 



S0B3 30B3 



30B4 3064 



30B5 

30B8 30B8 



012C 





7001 


012D 





3084 


012E 





7002 


012F 





30B4 


0130 





30B4 


0131 





7004 


0132 





30B4 


0133 





3084 


0134 





3084 


0135 





30B4 


0136 





7002 



ORG 



DC 



/3001 



/3001 



* 

» 
* 
♦ 

* 
* 
* 
* 



W.UT CONTAINED IN THE INTERRUPT 
SECTION. SET SWITCHES AS FOLLJWS 



WRITE 
CHECK 



STORE 
STOP 



PROTECT 



• YES 
*N0 



ORG 



DC 



/30B2 



/30B2 



WAIT CONTAINED IN THE INTERVAL 
TIMER SECTION. THIS IS AN 
ERROR WAIT. THE OPfcRATOR SHOULD 
RUN THE INTERVAL TIMER FUNCTION 
TEST PID 0882 . 



DC 



/30B3 



WAIT CONTAINED IN THE INTERRUPT 
SECTION. THIS IS AN ERROR WAIT. 
THE OPERATOR SHOULD RUN THE 
INTERRUPT FUNCTION TEST PID 
0883 



DC 



ORG 



DC 



/3084 



WAIT CONTAINED IN THE OP CODE 
SECTION. THIS IS AN ERROR WAIT. 
THE OPERATOR SHOULD PUN THE 
PC FUNCTION TEST PID 0384 



/30B8 



/30B8 



* 






<• 






• 






* 






* 






• 








ORG 


300 


* 






* 






******************* 


A080 


MOX 


G080 


V020 


DC 


/3084 


GO 80 


MOX 


G081 


V024 


OC 


/30B4 


V0?8 


DC 


/3064 


GOJI 


MOX 


G032 


V02C 


DC 


/30B4 


V030 


DC 


/3034 


V034 


OL 


/3084 


V038 


OC 


/30B4 


GG82 


KDX 


G084 



WAIT CONTAINED IN THE INTERVAL 
TIMER SECTION. THIS IS AN ERROR 
WAIT The READER WAS FOUND TO 
BE NOT READY STATUS. 



TEST MDX OPERATION 



MOX 


BY 


1 


FAILED 


MDX 


BY 


2 


FAILED 


VOX 


BY 


2 


FAILED 


MOX 


BY 


4 


FAILED 


MOX 


BY 


4 


PAIRED 


MDX 


BY 


4 


rAILED 


MDX 


BY 


4 


FAILED 



DATE 28FF966 29JUN66 04NOV66 I5FEB6, 

EC NO. 415120 4I5I75A 415233 4I5233B 



80000000 

80000010 
8G000020 
60C00030 
30000040 
80000050 
80000060 
80000070 
80000080 
30000090 
80000100 
81000110 
80000120 
80000130 
80000140 
80000i50 
80000160 
30000170 
80000180 
8G000190 
80000200 
80G00210 
80000220 
80000230 
80000240 
80000250 
80000260 
80000270 
80000280 
80000290 
80000300 
80000310 
80000320 
80030330 
30000340 
80000350 
80000360 
80000370 
80000380 
80000390 
60000400 
80000410 
80000420 
80000430 
80000440 
80000450 
80000460 
80000470 
30000460 
30000490 
80000500 
80000510 
80000520 
80000530 
80000540 
60000550 
e0000560 
80000570 
£0000580 
80000590 
80000600 
80000610 
80000620 
80000630 
80000640 
80000650 
80000660 
80000670 



PROG ID 
PAGE 



0800-1 
1 



0137 





30B4 


V03C 


OC 


/30B4 


MDX BY 2 FAILED 


80000680 




0138 





7CJ4 


G083 


MDX 


AOCO 




80000690 




0139 





70FE 


G084 


MDX 


G083 




800OO7OO 




013A 





30B4 


V040 


OC 


/3084 


MDX BY -2 FAILED 


80000710 




013B 





30B4 


V044 


OC 


/30B4 


MDX BY -2 FAILED 


80000720 




013C 





3084 


V045 

• 
* 


DC 


/30B4 

TEST 


MDX BY -2 FAILED 
OF BSC SKIP WHEN IT 


80000730 
800007*0 
80000750 










* 




SHOULD NOT 


80000760 










• 








80000770 










*************************************** t+**** 


80000780 




013D 





2003 


AOCO 


LDS 


3 




800OO79O 




013E 





4802 




BSC 


C 




800008O0 




013F 





7002 




MDX 


GOCl 




80000810 




0140 





30B4 


V048 


OC 


/30B4 


BSC-CARRY FAILED 


80000820 




0141 





0000 


N100 


DC 







8000O83O 




0142 





4801 


GOCl 


BSC 







80000840 




0143 





7001 




MDX 


G0C2 




80000850 




0144 





3084 


V04C 


DC 


/30B4 


BSC-OVFLW FAILED 


8000O86O 




0145 





4801 


G0C2 


BSC 







80000870 




0146 





30B4 


V050 


DC 


/30B4 


BSC-OVFLW SKPD-SHOUL 


80000880 




0147 





2000 


GOCO 


LDS 





♦NOT HAVE 


83000890 




0148 





4302 




BSC 


C 




80000900 




0149 





30B4 


V054 

* 
* 


DC 


/30B4 

TEST 


BSC-C SKPD SHOULD NOT 
OF ACC ABILITt TC HOLD 


80000910 
60000920 
80000930 










* 




ALL ZEROS 


800009^0 










• 








80000950 










********************************************* 


80 000960 




014A 





C0F6 


A 100 


LD 


N100 




80000970 




014B 





4820 




BSC 


I 




80000930 




014C 





30B4 


V058 


DC 


/30B4 


LD ACC TO FAILED 


8U000990 




014D 





C0F3 




LO 


N100 


ACC=0, RELOAD TO 


80001000 




014E 





4820 




8SC 


T 




80001010 




014F 





3034 


V05C 


DC 


/30B4 


LD ACC TO FAILED 


80001020 




0150 





4804 




BSC 


e 




80001030 




0151 





30B4 


V060 

* 


DC 


/30B4 


BSC ON EVEN FAILED 


80001040 
80001050 










* 




CONTAIN ALL ONES 


8000 1060 










* 








80001070 










************* 


******************************** 


80001080 




0152 





C04A 


A 140 


LO 


N140 


ACC. =0, RELOAD TO ONES 


8000 1090 




0153 





4810 




BSC 


- 




80001100 




0154 





3084 


V064 

* 


DC 


/30B4 


LOAD ACC. FAILED OR 
♦BSC ON NEG. FAILED 


80001110 
80001120 




0155 





4808 




BSC 


♦ 




80001130 




0156 





7001 




MDX 


G140 




80001140 




0157 





30B4 


V068 


DC 


• 30B4 


BSC ON ♦ SKPD- 


80001150 




0158 





4804 


G140 


8SC 


E 


♦SHOULD NOT HAVE 


80001160 




0159 





7001 




MDX 


G141 




80001170 




015A 





3084 


V06C 


DC 


/30B4 


BSC ON E SKPD- 


800Q11PO 




015B 





1901 


G141 


SRA 


1 


♦SHOULD NOT HAVE 


80001190 




015C 





4304 




BSC 


E 




800012OO 




015D 





7001 




MDX 


G142 




80001210 




015E 





30B4 


V070 


DC 


/30B4 


ACC N0T=7FFF 


80001220 




015r 





1801 


G142 


SRA 


I 




800O123O 




0160 





4804 




BSC 


E 




80001240 




0161 





7001 




MDX 


G143 




80001250 




0162 





30B4 


V074 


DC 


/30B4 


ACC N0T=3FFF 


80091260 




0)63 





1801 


G143 


SRA 


1 




80001270 




0164 





4804 




BSC 


E 




80001280 




0165 





7001 




MIX 


G144 




80001290 




0166 





3034 


V078 


DC 


/30B4 


ACC N0T=1FFF 


80 00 1300 




0167 





1801 


G144 


SRA 


I 




80001310 




0168 





4804 




BSC 


E 




80001320 




0169 





7001 




MDX 


G145 




80001330 




016A 





30B4 


V07C 


DC 


/30B4 


ACC N0T=0FFF 


80001340 




016B 





1801 


G145 


SRA 


1 




80001350 




DATE 




28FEB66 


29JUNS6 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


415120 


4I5I75A 415233 4I5233B 




PAGE 
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OP COOES SECTION 



016C 


4804 




BSC 


E 




80001360 




0160 


7001 




MDX 


G146 




80001370 




016E 


30B4 


V080 


OC 


/30B4 


ACC N0T=07FF 


80001380 




016F 


1801 


G146 


SRA 


1 




80001390 




0170 


4804 




BSC 


E 




80001400 




0171 


70G1 




MDX 


G147 




8000141U 




C172 


30B4 


V084 


OC 


/3084 


ACC N0T=03FF 


80001420 




0173 


1801 


G147 


SRA 


1 




8C001430 




0174 


4804 




BSC 


E 




80O01440 




0175 


7001 




MDX 


G148 




80001450 




0176 


30B4 


V088 


OC 


/30B4 


ACC N0T=01FF 


80001460 




0177 


1801 


G148 


SRA 


I 




80001470 




0178 


4804 




BSC 


E 




80001480 




0179 


7001 




MDX 


3149 




30001490 




017A 


30B4 


V08C 


DC 


/30B4 


ACC N0T=O0FF 


80001500 




017B 


1801 


G149 


SRA 


1 




80001510 




01 7C 


4804 




BSC 


E 




800C15.-»0 




0170 


7001 




MDX 


G14A 




80001530 




017E 


30B4 


V090 


DC 


/30B4 


ACC NOT=007F 


80001540 




017F 


1801 


G14A 


SRA 


1 




80001550 




0180 


4804 




BSC 


E 




80001560 




0181 


7001 




MDX 


G14B 




80001570 




0182 


30B4 


V094 


DC 


/30B4 


ACC NOT=003F 


£0001580 




0183 


1801 


ol4B 


SRA 


1 




80001590 




0184 


4804 




BSC 


E 




80001600 




0185 


7001 




MDX 


G14C 




80001610 




0186 


3034 


V098 


DC 


/30B4 


ACC NOT=001F 


80001620 




0187 


1801 


G14C 


SRA 


1 




80001630 




0188 


4804 




BSC 


c 




80001640 




0189 


7001 




MDX 


G14D 




80001650 




018A 


30B4 


V09C 


OC 


/3084 


ACC N0T=000F 


80001660 




0188 


1801 


G14C 


SRA 


1 




80001670 




018C 


4804 




BSC 


E 




80001680 




0180 


7001 




MOX 


G14E 




80001690 




018E 


3034 


VOAO 


DC 


/30B4 


ACC NOT=0007 


80001700 




018F 


1801 


G14E 


SRA 


1 




80001710 




0190 


4804 




BSC 


E 




80001720 




0191 


7001 




MDX 


G14F 




80001730 




0192 


30B4 


V0A4 


DC 


/3084 


ACC NOT=00;>3 


80001740 




0193 


1801 


G14F 


SRA 


1 




80001750 




0194 


4804 




BSC 


E 




80001760 




0195 


7001 




MDX 


G150 




800017 70 




0196 


30B4 


V0A8 


OC 


/3084 


ACC NOT=0001 


80001780 




0197 


1801 


G150 


SRA 


1 




80001790 




0198 


4804 




BSC 


E 




80001800 




0199 


3084 


VOAC 


DC 


/30B4 


ACC NOT=0000 


80001810 




019A 


4820 




8SC 


Z 




80001820 




0198 


30B4 


VOBO 


DC 


/30B4 


ACC NOT=0000 


80001830 




019C 


7001 




MDX 


A180 




80001840 




0190 


FfFF 


N140 

* 


DC 


/FFFF 




80001850 
80001860 








* 




TEST 


LD1NG OF ONES ON ONFS 


80001870 








* 








80001880 








**************»*:*♦****#»***********<**»«*»* *** 


80001890 




019E 


C049 


A180 


LD 


N180 




80001900 




019F 


482C 




BSC 


+ EZ 




80001910 




01A0 


4810 




BSC 


- 




80001920 




01A1 C 


30B4 


V0B4 


DC 


/30B4 


ACC NOT=FFFF 


80001930 




01A2 


C04 5 




LD 


N180 




80001940 




01A3 


482C 




BSC 


♦ EZ 




80001950 




01A4 


4810 




BSC 


- 




80001960 




01A5 


30B4 


V088 


DC 


/3084 


ACC NOT=FFFF 


80001970 




01A6 


1801 




SRA 


1 




80001980 








* 




TEST 


ABILITY OF ACC TO 


80001990 




01A7 


4804 




BSC 


c 




8000 2000 




01A8 


7001 




MDX 


Giei 




80002010 




01A9 


3084 


VOCO 


DC 


/30B4 


ACC N0T='fFF 


80002020 




01AA 


1801 


G181 


SRA 


1 




80002030 




OATE 


28FEB66 


29JUN66 


04NOV66 


I5FEB67 




PROG ID 


0800-1 


EC NO. 


4151 20 


41 5I/5A 


415233 


4I5233B 




PAGE 


2 



01AB 
01AC 

01AD 

01AE 

01AF 

01B0 

01B1 

01B2 

01B3 

01B4 

01B5 

01B6 

01B7 

0138 

01B9 

01BA 

01B3 

01BC 

01BD 

01BE 

01BF 

OiCO 

01C1 

01C2 

0IC3 

01C4 

01C5 

01C6 

01C7 

01C8 

01C9 

01CA 

01C8 

01CC 

01CD 

OiCE 

01CF 

01D0 

0101 

01D2 

01D3 

0104 

01D5 

01D6 

0107 

01D8 

0109 

01DA 

010B 

010C 

01DD 

010E 

01DF 

01E0 

01E1 

01E2 

01E3 

01E4 

01E5 

01E6 

01E7 

01E8 













DATE 
EC NO. 



4804 

7001 

J0B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

3034 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7C0i 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

30B4 

1801 

4804 

7001 

3034 

1801 

4804 

7001 

30B4 

1801 

4804 

3034 

4820 

30B4 

7001 

FFFF 



28FEB66 
415120 



V0C4 
G182 



V0C8 
G183 



voce 

G184 



VODO 
G185 



V0D4 
G186 



V0D8 
G187 



VODC 
G188 



VOEO 
G189 



V0E4 
G18A 



V0E8 
G189 



VOEC 
G18C 



VOFO 
G180 



V0F4 
G18E 



V0F8 
G18F 

V100 

V104 

N180 

* 
* 
* 
* 
«. 
****** 



BSC 

MDX 

DC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

MOX 

DC 

SRA 

BSC 

MDX 

OC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

MDX 

OC 

SRA 

BSC 

MDX 

OC 

SRA 

BSC 

MDX 

OC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

Mr,x 

DC 

SRA 

BSC 

MDX 

DC 

SRA 

BSC 

UC 

BSC 

DC 

MDX 

OC 



E 

G182 

/3084 

1 

E 

G183 

/30B4 

1 

E 

G184 

/30B4 

1 

E 

G185 

/30B4 

1 

E 

G186 

/30B4 

1 

c 

G187 

/30B4 

1 

E 

G188 

/30B4 

1 

E 

G189 

/30B4 

1 

E 

G18A 

/30B4 

i 

E 

G18B 

/3084 

1 

E 

G18C 

/30B4 

1 

E 

G18D 

/30B^ 

1 

E 

G18E 

/30B4 

1 

E 

G18F 

/30B4 

1 

E 

/30B4 

Z 

/30B4 

A1C0 

/FFFF 



ACC. N0T=3FF( 
ACC N0T=1FFF 
ACCUM NOT OFFF 
ACC N0T=07FF 
ACC N0T=03FF 
ACC N0T=01FF 
ACC NOT=OOFF 
ACC N0T=007F 
ACC NOT=003F 
ACC N0T=001F 
ACC N0T=000F 
ACC NOT =0007 
ACC NOT=0003 

ACC NOT=0001 

ACC NOT=0000 
ACC NOT =0000 



TEST ABILITY TO LOAD ZEROS 
ON TOP OF ZEROS AND UNES 
TOP OF ZEROS 



29JUN66 
4I5I75A 



04NOV66 
415233 



I5FEB67 
41 5233B 
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80002040 

G00O2G50 

80002060 

80002070 

80002080 

80QO2090 

80002100 

80OO2110 

80 00.2120 

80002130 

80002140 

80002150 

80002160 

8 00© 2 170 

80002180 

80002190 

80002200 

800O221O 

80GQ2220 

80002230 

800O224O 

80002250 

80OO22&0 

&00O2273 

800O2280 

8000229*} 

80002 300 

80OQ231O 

83002320 

80002330 

800023*0 

80002350 

80OO23AO 

80002370 

800O238O 

80092390 

80002400 

80002*10 

800O242O 

80002430 

80002-440 

80OO2450 

80QO246O 

80QO247O 

800O2%8O 

80OQ2V3O 

80002500 

80002510 

80002520 

80002530 

80002540 

80002^50 

800O256O 

800025TO 

80002580 

8C0O259O 

800O2&&0 

80002610 

80002620 

800O263O 

80002640 

80OO2fc5O 

80002660 

80002670 

80002680 

80002690 

80002 ?©0 

80002?iU 



paoc io 

PA6E 



0800-1 
2A 



t 4 < 



. » ( ( 
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01E9 





C007 


A1C0 


LO 




N1C0 




80002720 




01EA 





4820 




BSC 




Z 




8000273O 




01EB 





30B4 


V108 


DC 




/30B4 


ACC N0T=ZER0 


80002740 




01EC 





C005 




LO 




N1C1 




80002750 




01E0 





482C 




BSC 




♦ EZ 




80002760 




01EE 





4810 




BSC 




- 




80002770 




01EF 





3084 


V10C 


DC 




/3084 


ACC NOT=FFFF 


80002780 




01F0 





7002 




MDX 




A1D0 




80002790 




01F1 





0000 


N1C0 


DC 




/OOOO 




80002800 




01F2 





FFFF 


N1C1 

* 
* 
* 


DC 




/FFFF 

TEST 


EOR OPERATION 


80002810 
80002820 
80002S30 
80002840 










********************************************** 


83002850 




01F3 





C01C 


A1D0 


LD 




NIDI 




80002860 




01F4 





4820 




BSC 




I 




8C002870 




01F5 





30B4 


VI 10 


DC 




/30B4 


ACC NOT=ZERO 


80002880 




01F6 





F019 




EOR 




NIDI 




80002890 




01F7 





4820 




BSC 




J. 




80002900 




01F8 





30B4 


Vll4 


DC 




/30B4 


EOR OF AND FAILED 


80002910 




01F9 





C015 




LD 




NtDO 




80002920 




01F4 





F014 




EOR 




N1D0 




80C02930 




OlFB 





4820 




BSC 




Z 




30002940 




01FC 





30B4 


V118 


oc 




/30B4 


EOR OF 1 AND 1 FAILED 


80002950 




01FD 





F011 




EOR 




N1D0 




80002960 




01FE 





482C 




BSC 




♦ EZ 




80002970 




01FF 





49 10 




BSC 




- 




80002980 




0200 





30B4 


/11C 


DC 




/30B4 


EOR OF 1 AND FAILED 


80C02990 




0201 





1601 




SRA 




1 




80003000 




0202 





FOOE 




EOR 




N1D2 




80003010 




0203 





4820 




BSC 




I 




8COO302O 




0204 





30B4 


V11D 


OC 




/30B4 


EOR OF \ AND FAILED 


80003030 




0205 





C009 




LD 




N1D0 




80003040 




0206 





F009 




EOR 




NIDI 




80003050 




0207 





482C 




BSC 




♦ EZ 




80O03060 




0208 





4810 




3SC 




- 




80003070 




0209 





30B4 


V120 


DC 




/30B4 


EOR OF ANO 1 FAILE 


80003080 




020A 





1801 




SRA 




1 




80003090 




020B 





F005 




FOP 




N1D2 




80003100 




020C 





4820 




BSC 




Z 




80003110 




0200 





30B4 


V121 


DC 




/30B4 


EOR OF AMD 1 FAILE 


80003120 




020E 





7003 




MOX 




A1E0 




300031^0 




02CF 





FFFF 


N1D0 


DC 




/FFFF 




30003140 




021C 





0000 


NIDI 


DC 




/OOOO 




80003150 




0211 





7FFF 


N1D2 

* 
* 
* 
* 


DC 




/7FFF 

TEST 

F BIT 


OF ABILITY TO SET 

TO ONE 


80003160 
80003170 
80003180 
80003190 
80003200 










********************************************** 


80003210 




0212 


00 


C400021D 


A1E0 


LD 


L 


N1E1 




80003220 




0214 





4820 




BSC 




2 




80003230 




0215 





30B4 


V124 


DC 




/30B4 


WRONG LOCATION LOADE 


80003240 




0216 


00 


C400021C 




LO 


L 


N1E0 




80003250 




0218 





FC0 3 




EOR 




N1E0 




80003260 




0219 





4820 




BSC 




Z 




80003270 




021A 





30B4 


V128 


DC 




/3084 


WRONG LXATION LOADE 


80003280 




021B 





7002 




MDX 




A1F0 




80003290 




021C 





02 1C 


N1E0 


OC 




N1E0 




80003300 




021D 





0000 


N1E1 

* 
* 
• 


DC 




/OOOO 

TEST 


OF INDIRECT AODRESSING 


80003310 
80003320 
80003330 
80003340 










„ ,******** ********** *********** *************** 


80003350 




021E 


00 


C4S0022A 


A1F0 


LD 


I 


N1F2 




80003360 




0220 





4820 




BSC. 




Z 




80003370 




0221 





30B4 


VI 2C 


OC 




/30B4 


WRONG LOCATION LCADE 


80003380 




0222 


00 


C4800229 




LD 


I 


N1F1 




80003390 




DATE 




28FEB66 


29JUN66 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


415120 


4I5I75A 415233 4I52J3B 




PAGE 


3 
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0224 





F004 


0225 





4820 


0226 





. 0B4 


0227 





7003 


0228 





OOOO 


0229 





0229 


022A 





0228 



022B 00 
0220 
02.2E 
022F 
0230 00 

0232 

0233 

0234 00 

0236 

0237 

0238 00 
023A 
023B 
023C 00 
023E 
023F 
024C 
0241 00 
0243 
0244 
0245 
0247 
0248 
0249 00 
024B 
024C 
C240 
024E 00 
02 5C 

0251 

0252 00 
0254 
0255 
0256 
0257 
0259 
025A 
025B 
025C 00 
025E 
025F 

0260 

0261 00 
0263 
0264 
0265 
0267 
0268 
0269 
026A 
0266 
026C 
0260 










00 

u 









00 











00 

















DATE 

EC NO. 



4C00022F 

30B4 

30B4 

C03A 

4C040234 

30B4 

3084 

4C080238 

30B4 

30B4 

4C20023C 

30B4 

30B4 

4C10023F 

7001 

30B4 

2003 

4C020245 

30B4 

30B4 

4C010249 

30B4 

30B4 

4C01024C 

7001 

30B4 

2000 

4C020251 

7001 

30Bi 

,C010255 

7001 

30B4 

C014 

4C18025B 

30B4 

30B4 

COOE 

4C18025F 

7001 

3084 

COOB 

4C 180264 

7001 

30B4 

4C80026D 

30B4 

30B4 

7004 

FFFF 

OOOO 

0001 

0269 



28FEB66 
4I5I2C 



V130 

N'.FO 
N1F1 
N1F2 

* 
* 

****** 
A 200 
V134 
V138 
G200 

V13C 
V140 
G201 
V144 
V148 
G202 
V14C 
V150 
G203 

V154 
G204 

V158 
V15C 
G205 
V160 
V164 
G208 

V168 

G206 



EOR 
BSC 

DC 

MDX 

DC 

DC 

OC 



V170 
G207 

V174 
G20S 

V178 
VI 7C 

G20A 



VI 80 
G200 



V184 

G20B 

VI 88 

V18C 

G20C 

N200 

N201 

N202 

N203 

* 

* 



***** 

BSC 

OC 

DC 

LD 

BSC 

OC 

DC 

BSC 

DC 

DC 

BSC 

DC 

DC 

BSC 

MDX 

DC 

LOS 

BSC 

DC 

DC 

BSC 

DC 

DC 

BSC 

KDX 

DC 

LDS 

8SC 

MDX 

DC 

3SC 

MDX 

DC 

LD 

8SC 

DC 

DC 

LD 

BSC 

MDX 

DC 

LD 

BSC 

MDX 

DC 

BSC 

DC 

DC 

MOX 

DC 

PC 

DC 

OC 



N1F1 

I 

/30B4 WRONG LOCATION LOADE 

A200 

/OOOO 

NIFl 

N1FC 



TEST OF BSC LONG FORM AW 
INDIRECT OPERATION 

*********************************** 



G200 

/30B4 

/30B4 

N200 

G201.E 

/30B4 

/30B4 

G202.+ 

/30B4 

/30B4 

G203.Z 

/30B4 

/30B4 

V154,- 

G204 

/30B4 

3 

G205.C 

/30B4 

/30B4 

208,0 

/3034 

/30B4 

V168.0 

G206 

/30B4 



V170.C 

G207 

/30B4 

V174.0 

G209 

/30B4 

N201 

G20A.+- 

/30Bv 

/3084 

N200 

V180.+- 

G20D 

/30B4 

N202 

V184,+- 

G20B 

/3084 

N203 

/30B4 

/30B4 

A240 

/FFFF 

/OOOO 

/0001 

G20C 



BSC FELL THROUGH 
BSC SKPD-SHOULD BRNC 



BSC E FELL THROUGH 
BSC SKPD-SHOULD BRNC 

BSC + FELL THROUGH 
BSC SKPD-SHOULD 8RNCH 

BSC Z FELL THROUGH 
BSC SKPD-SHOULD BRNC 



BSC SKPD-SHOULD NOT 



BSC C FELL 'HROUGH 
BSC SKPD-SHOULD BRNCH 

BSC FELL THROUGH 
BSC SKPD-SHOULD BRNC 



BSC BRNCHD-SHOULO NOT 



BSC BRNCHO-SHOULD NOT 



BSC 8RNCHD-SH0ULD NO 



BSC +- FELL THROIGH 
BSC SKPD-SHOULD BRNC 



BSC BRNCHED-SHOULDNT 



8SC BRNCHED-SHOULDNT 

INDIRECT BSC FAILED 
INDIRECT BSC FAILED 



29JUN66 
4I5I75A 



04NOV66 
415233 



TEST SHORT AND LONG FORM 
BSI 



I5FEB67 
4I5233B 



PART NO. 
PAGE 



80003400 
80003410 
80003420 
80003430 
80003440 
80003450 
80003460 
80003470 
80003480 
80003490 
80003500 
80003510 
80003520 
80003530 
80003540 
80003550 
80003560 
80003570 
80003580 
80003590 
80003600 
80003610 
90003620 
80003630 
80003640 
80003650 
30003660 
80003670 
80003680 
80003690 
800O3T0O 
3C003710 
80003720 
80003730 
80003740 
80003750 
80003760 
80003770 
80003780 
80003790 
80003800 
80003810 
80003820 
80003830 
80003840 
80003850 
80003860 
80003870 
80003880 
80003890 
60 003900 
80003910 
80003920 
80003930 
80003«?40 
80003950 
80003960 
80003970 
80003980 
80003990 
80004000 
80004010 
80004020 
80004030 
80004040 
80004050 
80004060 
80004070 



PROG 10 
PAGE 



2183266 
3A 



0800-1 
3A 
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026E 

026F 

0270 

0271 

0272 

0273 

0274 

0275 

0276 00 

0278 

0279 

027A 

027B 

027C 

027D 

027E 

027F 



4002 

026F 

30B4 

0000 

COFE 

F0F8 

4820 

30B4 

4408027B 

30 B4 

30B4 

0278 

0000 

COFE 

FOFC 

4820 

30B4 



0280 
0281 
0282 
0283 
0234 
0285 
0286 
0287 
0288 
0289 
028A 
0288 
023C 
0280 
02BF 
0290 
0292 
0293 
0294 
0295 
0296 
0298 
029A 
029C 
0290 
029E 
029F 
02A1 
02A3 
02A5 
02A6 
02A7 
02A8 
02A9 
02AA 
02AB 

02AC 
02A0 
02AE 
02AF 
02B0 
02B1 
02B2 



C03E 

003B 

C03B 

C039 

F037 

4320 

30B4 

C03B 

4820 

703C 

C036 

D03 7 

1810 
00 D'.OOOOOl 
61FF 
00 C4000001 
n 4820 
7009 
C02F 
002 3 
00 04000F63 
00 04000F77 
00 D4000F8F 
7008 
C027 
D01A 
00 D4000F63 
00 04000F77 
00 04000F8F 
C019 

0811 

C01A 

F017 

4820 

30B4 

C015 



OATE 
EC NO. 



0805 
C006 
1808 
4820 
30B4 
7014 
0000 



28FEB66 
415120 



* 
****** 

A240 
N240 
VIA-* 
N241 



VIA8 

V1AC 
VIBO 
N242 
N243 



V1B4 

* 

* 

* 

****** 

A900 



***** 

8SI 

OC 

DC 

OC 

LD 

EOR 

BSC 

OC 

BSI 

DC 

DC 

DC 

DC 

LD 

EOR 

BSC 

DC 



*********************************** 



N241 

N240 

/30B4 

/OOOO 

N2*l 

N240 

Z 

/30B4 

N243,* 

/30B4 

/30B4 

V1AC 

/OOOO 

N243 

N242 

I 

/30B4 



BSI SKPD-SHOULD BRNC 



BSI NOT STORE 



CTR 



BSI ♦ FELL THROUGH 
BSI SKPD-SHOULD BRNC 



BSI NOT STORE I CTR 



TEST OF INSTR REQUIRED FOR 
ERROR CONTROL 



XOOO 



G9C1 



G900 



X002 

* 



***** 

LD 

3T0 

LD 

LD 

EOR 

BSC 

DC 

LD 

BSC 

MDX 

LD 

STO 

SRA 

STO 

LDX 

LD 

BSC 

MDX 

LO 

STO 

STO 

STO 

STO 

MDX 

LD 

STO 

STO 

STO 

STO 

LD 

XIO 

LD 

EOR 

BSC 

DC 

LD 

XIO 

LD 

SRA 

BSC 

OC 

MDX 

BSS 



************** 

F911 

F912 

F913 

F912 

F911 

Z 

/3084 

F918 

Z 

A2B0 

F916 

F918 

16 
L /0001 

1 -1 
L /0001 

z 

G901 

F919 

F903 
L N8C2 
L F004 
L FC07 

G900 

F920 

F903 
L N8C2 
L F004 
L F007 

F914 

F902 

F917 

F915 

Z 

/30B4 

F916 

MI0C3 
PSSW 
8 
I 

/30B4 
A280 
E 



********************* 



STORE FAILED 

CK FIRST PASS SW 

IS SW ON 

YES 

GET 0002 



mo cpu 

1800 CPU 



II 30 CPU 



♦FFFF AND CONTINUE 



BIT SWITCHES NOT READ 

♦CORRECTLY 

♦DESIRED FOR RUN-CON 



29JUN66 
41 5I75A 



04N0V66 
415233 



I5FEB&7 
4I5233B 



80004080 
80004090 
80004100 
80004110 
80004120 
80004130 
80004140 
80004150 
80004160 
80004170 
80004180 
80004190 
80004200 
80004210 
80004220 
80004230 
80004240 
80004250 
80004260 
80004270 
80004280 
80004290 
80004300 
80004310 
80004320 
80004330 
800C4340 
80004350 
80004360 
80004370 
80004380 
80004390 
80004400 
80004410 
80004420 
80004430 
80004440 
80004450 
80004460 
8000447^ 
80004480 
80004490 
80004500 
80004510 
80004520 
80004530 
80004540 
80004550 
80004560 
80004570 
80004580 
80004590 
80004600 
80004610 
80004620 
80004630 
60004640 
80004650 
80004660 
80004670 
80004680 
80004690 
80004700 
80004710 
80004720 
8000473G 
90004740 
80004750 



PROG 10 
PAGE 



02B2 





CB4 


MICC3 


DC 


PSSW 


0283 





0260 




OC 


/0260 


02B4 





OOOO 


PSSW 


OC 


/OOOO 


0236 




0002 


F901 


BSS 1 


: 2 


02B8 





02C2 


F902 


OC 


F917 


02B9 





0240 


F903 


DC 


/0240 


02BA 





028A 


F904 


DC 


F904 


02BB 





OOOO 


F905 


DC 


/OOOO 


02BC 





02BD 


F911 


OC 


F912 


02B0 





OOOO 


F912 


DC 


/OOOO 


02BE 





OOOO 


F913 


OC 


/OOOO 


02BF 





0001 


F914 


DC 


/OOOl 


02C0 





FFFF 


F915 


DC 


/FFFF 


02C1 





0002 


F916 


DC 


/0002 


02C2 





OOOO 


F917 


OC 


/OOOO 


02C3 





OOOO 


F918 


DC 


/OOOO 


02C4 





0240 


F919 


DC 


/0240 


02C5 





3A00 


F920 


DC 


/3A0O 



************************* 
****.******************** 
* 

* BEGIN 

* PROGR 

* CONTR 
* 

************************ 
************************ 
* 

* TEST 
* 
>*********************** 



1800 Rl'AO BIT SWS CONSTANT 
1130 READ BIT SWS CO STANT 
********************* 
********************* 

ING OF SECTION OF 

AM USING COMMON ERROR 

OL ROUTINE 

********************* 

********************* 

OF SRA OPERATION 
********************** 



0800-1 
4 



02C6 





C039 


A280 


LD 




,1280 




02C7 





1810 




SRA 




16 




02C8 


00 


4C1802C0 




BSC 


L 


G280 t +- 




02CA 


00 


44000F65 




BSI 


L 


FOOO 


SRA 16 FAILED 


02CC 





0001 


P280 


DC 




/OOOl 


♦ERROR 1 


G-^CD 


00 


44000F7C 


G280 


BSI 


I 


F005 


CK LOOP SWITCH 


02CF 





70F6 




MDX 




A280 


LOOP 








********************************************** 


0200 





C030 


A2bl 


LD 




N281 




02D1 





180F 




SRA 




15 




0202 





F02F 




EOR 




N282 




0203 


00 


4C I 8020 8 




BSC 


L 


G281.+- 




0205 


00 


44000F65 




BSI 


L 


FOOO 


SRA 15 FAILED 


0207 





0002 


P281 


DC 




/0002 


♦ERROR 2 


0208 


00 


44000F7C 


G281 


3SI 


L 


F005 


CK LOOP SWITCH 


02DA 





70F5 




MDX 




A281 


LOOP 








********************************************* 


020B 





C027 


A282 


LO 




N283 




020C 





1801 




SRA 




1 




0200 





F026 




EOR 




N284 




02DE 


00 


4C1802E3 




BSC 


L 


G282.+- 




02E0 


00 


44000F65 




8SI 


L 


FOOO 


SRA 1 FAILED 


02E2 





0003 


P282 


OC 




/0003 


♦ERROR 3 


02E3 


CO 


44000F7C 


G282 


BSI 


L 


F005 


CK LOOP SWITCH 


02E5 





70F5 




MDX 




A282 


LOOP 








********************** ******v* * *************** 


02E6 





C010 


A283 


LD 




N284 




02E7 





1801 




SRA 




1 




02E8 





F01C 




EOR 




N285 




02E9 


00 


4C1802EE 




BSC 


L 


G283.+- 




02EB 


00 


44000F65 




BSI 


L 


FOOO 


SRA 1 FAILED 


02E0 





0004 


P283 


DC 




/0004 


♦ERROR 4 


02EE 


00 


44000F7C 


G283 


BSI 


L 


F005 


CK LOOP SWITCH 


02F0 





70F5 




MDX 




A283 


LOCP 








********************************************* 


02F1 





COOF 


A284 


LD 




N281 




02F2 





180 1 




SRA 




1 




DATE 




28FEB66 


2'.JUN66 


04NOV66 I5FEB67 




EC NO. 


415120 


41 5I75A 


415233 


4I5233B 





80004760 
80004770 
80004780 
80004790 
800O4800 
80004910 
80004820 
80004830 
80004840 
80004850 
80004860 
80004870 
80004880 
80004890 
80004900 
80004910 
80004920 
80004930 
80004940 
80004950 
80004960 
80004970 
80004980 
80004990 
80005000 
80005010 
80005020 
80005030 
80005040 
80005050 
80005060 
80005070 
80005080 
80005090 
80005100 
80005110 
80005120 
80005130 
80005140 
80005150 
80005160 
80005170 
80005180 
80005190 
80005200 
80005210 
80005220 
80005230 
80005240 
80005250 
80035260 
80005270 
80005280 
80005290 
80005300 
80035310 
80005320 
80005330 
80005340 
80005350 
80005360 
80005370 
80005380 
80005390 
80005400 
80005410 
80005420 
30005430 



PROG ID 
PAGE 



0800- 1 
4A 



( i 
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PART NO. 
PAGE 



2183266 
5A 



02F3 1802 




SRA 




2 




80005440 




02F4 1804 




SRA 




4 




80005450 




02F5 1808 




SRA 




8 




80005460 




02F6 FOOB 




EOR 




N262 




80005470 




02F7 00 4C1802FC 




BSC 


L 


G284,*- 




80005480 




02F9 00 44000F65 




BSI 


L 


FOOO 


COMB SRA FAILED 


80005490 




02FB 0005 


P284 


DC 




/0005 


♦ERROR 5 


80005500 




02FC 00 44000F7C 


G284 


BSI 


L 


F005 


CK LOOP SWITCH 


80005510 




02FE 70F2 




MDX 




A284 


LOOP 


80005520 




02FF C 7006 




MDX 




A2C0 


EXIT 


80005530 




0300 FFFF 


N280 


DC 




/FFFF 




80005540 




0301 3000 


N281 


DC 




/8000 




80005550 




0302 0001 


N282 


DC 




/0001 




80005560 




0303 AAAA 


N283 


DC 




/AAAA 




P0005570 




0304 5555 


N284 


oc 




/5555 




80005580 




0305 2AAA 


N285 

• 


DC 




/2AAA 




80005590 
80005600 






* 






TEST 


OF AND FUNCTION 


80005610 






* 










80005620 






********************************************* 


80005630 




0306 C028 


A2C0 


LD 




N2C0 




80005640 




0307 E028 




AND 




N2C1 




80005650 




0308 00 4C18030D 




BSC 




G2CO t +- 




80005660 




030A 00 44000F65 




BSI 


L 


FOOO 


AND OF AND FAILE 


80005670 




0300. 0010 


P2C0 


DC 




/0010 


♦ERROk 10 


80005680 




0300 00 44000F7C 


C2C0 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80005690 




030F 70F6 




MDX 




A2C0 


LOOP 


80005700 




0310 E020 




AND 




N2C2 




80005710 




0311 00 4C160316 




BSC 


L 


G2C4,*- 




80005720 




0313 00 44000F65 




BSI 


L 


FOOO 


AND OF AND 1 FAILE 


8000 5730 




0315 0011 


P2C4 


DC 




/0011 


♦ERROR il 


80005740 




0316 00 44000F7C 


G2C4 


851 


L 


F005 


CHECK LOOP SWITCH 


80005750 




0318 70ED 




MDX 




A2C0 




80005760 






********************************************* 


80005770 




0319 COW 


A2C8 


LD 




N2C2 




80005780 




031A E014 




AND 




N2C0 




80005790 




031B 00 4C180320 




BSC 


L 


G2C8.+- 




80005800 




0310 00 44000F65 




BSI 


L 


FOOO 


AND OF 1 AND FAILE 


30005810 




031F 0012 


P2C8 


DC 




/0012 


* ER30P. 12 


80005820 




0320 00 44000F7C 


G2C8 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80005830 




0322 70F6 




MD.< 




A2C8 


LOOP 


80005840 






#***♦***************«*»********************** 


80005850 




0323 COOD 


A2CC 


LD 




N2C2 




80005860 




0324 COOD 




AND 




N2C3 




80005870 




0325 FOOC 




EOR 




N2C3 




800058R0 




0326 00 tC18032B 




BSC 


L 


G2CC.+- 




80005890 




0328 00 44000F6 5 




BSI 


L 


FOOO 


AND OF 1 AND 1 FAI LEO 


80005900 




032A 0013 


P2CC 


DC 




/0013 


♦ERROR 13 


80005910 




0328 00 44000F7C 


G2CC 


eil 


L 


F005 


CHECK LOOP SWITCH 


80005920 




0320 C 70F5 




MDX 




A2CC 


LOOP 


80005930 




032E 7004 




MDX 




A 300 




80005940 




032F 0000 


N2C0 


DC 




/oooo 




80005950 




0330 0000 


N2C1 


DC 




/oooo 




800C5960 




0331 FFFF 


N2C2 


DC 




/FFFF 




80005970 




0332 FFFF 


N2C3 

* 


DC 




/FFFF 




80005980 
80005990 






* 






TEST 


OF OR FUNCTION 


80006000 






* 










80006010 






********************************************** 


80006020 




0333 COIF 


A300 


LD 




N300 




80006030 




0334 E81F 




OR 




N301 




80006040 




0335 00 4C18033A 




BSC 


L 


G300,*- 




80006050 




0337 00 44000F65 




BSI 


L 


FOOO 


OR OF AND FAILED 


80006060 




0339 0020 


P300 


OC 




/0020 


♦ERROR 20 


80006070 




033A 00 44000F7C 


G300 


BSI 


I 


F005 


CHECK LC )? SWITCH 


80006080 




033C 70F6 




MDX 




A 300 


LOOP 


8000609C 




033D E817 




OR 




N302 




80006100 




033E F017 




EOR 




N303 




80006110 




DATE 28FEB66 


29JUN66 04NOV66 I5FEB67 




PROG ID 


0800- 1 


EC NO. A 151 20 


4I5I75A 415233 4I5233B 




PAGE 


5 



033F 00 4C180 34-. 




BSC 


L 


G302,*- 




80006120 




0341 00 4 O0OF65 




BSI 


L 


FOOO 


OR OF AND 1 FAILED 


80006130 




0343 0321 


P302 


DC 




/0021 


♦ERROR 21 


80006140 




0344 00 44000F7C 


G302 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8000615O 




0346 70EC 




MDX 




A300 




80006160 






************* *****t ***************** ********* 


80006170 




0347 COOD 


A 304 


LD 




N302 




80006180 




0348 E80D 




OR 




N303 




80006190 




0349 F003 




EOR 




..302 




80006200 




034A 00 4C18034F 




BSC 


L 


G304.+- 




80006210 




034C 00 44000F65 




BSI 


L 


FOOO 


OR OF 1 AND 1 FAILED 


80006220 




034E 0022 


P304 


DC 




/0022 


♦ERROR 22 


80006230 




034F 00 44000F7C 


G304 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80006240 




0351 70F5 




MDX 




A 304 


LOOP 


80006250 




0352 7004 




MDX 




A 340 


EXIT 


80006260 




0353 OOOO 


N300 


DC 




/OOOO 




80006270 




0354 OOOO 


N301 


CC 




/OOOO 




80006280 




0355 FrFF 


N302 


DC 




/FFFF 




80006290 




0356 FFFF 


N303 

* 


DC 




/FFFF 




80006300 
80006310 






* 






TEST 


OF RTE 16 OPERATION 


80006320 






♦ 










<«000633O 






**********-^************* ******** ************** 


80006340 




0357 C016 


A 340 


LD 




N340 




80006350 




0358 18D0 




RTE 




16 




80006360 




0359 C015 




LD 




N341 




80006370 




035A 18D0 




RTE 




16 




80006380 




0356 00 4C180360 




BSC 


L 


G340.+- 




80006390 




0350 00 44000F65 




BSI 


L 


FOOO 


ALL THRU FAILEO 


80006400 




035F 0030 


P340 


DC 




/0030 


♦ERROR 30 


80006410 




0360 00 44000F7C 


G340 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80006420 




0362 70F4 




MDX 




J 340 


LOOP 


80006430 




0363 18D0 




RTE 




16 




80006440 




0364 FOOA 




EOR 




N341 




80006450 




03o5 00 4C18036A 




BSC 


L 


G342,*- 




80006460 




0367 00 44000F65 




BSI 


L 


FOOO 


ALL I THRU Q FAILED 


80006470 




0369 0031 


P342 


DC 




/0031 


♦ERROR 31 


80006480 




036A 00 44000F7C 


G342 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80006490 




036C 70EA 




MDX 




A340 


LOOP 


80006500 




0360 7002 




MDX 




A380 


EXIT 


80006510 




036E OOOO 


N340 


DC 




/OOOO 




8000*520 




036F FFFF 


N341 

♦ 


DC 




/FFFF 




80 006530 

80006540 






♦ 






TEST 


OF SRT OPERATION 


80006550 






♦ 










80006560 






++*m*+m*** ****** ******************* ****** 


80006570 




0370 C055 


A 380 


LD 




N300 




80006580 




0371 18A0 




SRI 




32 




80006590 




0372 F054 




E0"* 




N381 




80006600 




0373 00 4C180378 




BSC 


L 


G380t+- 




80006610 




0375 00 44000F65 




BSI 


L 


FOOO 


SRT 32-A REG FAILED 


80006620 




0377 0040 


P380 


DC 




/0040 


♦ERROR 40 


80006630 




0378 00 44000F7C 


G380 


BSI 


L 


F005 


CHECK V HP SWITCH 


80006640 




037A 70F5 




MDX 




A 380 


LOOP 


60006*50 




037B 18D0 




RTE 




16 




80006660 




037C F04A 




EOR 




N381 




80006670 




037D 00 4C180382 




BSC 


L 


G382.+- 




8C006680 




037F 00 44000F65 




8SI 


L 


FOOO 


SRT 32-Q REG FAILED 


80006690 




0381 0041 


P382 


DC 




/0041 


♦ERROR 41 


80006700 




0382 00 44000F7C 


G382 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80006710 




0384 70EB 




MDX 




A380 


LOOP 


80006720 






********************************************* 


80006730 




0385 C042 


A384 


LD 




N382 




80006740 




0086 18A0 




SRT 




32 




80006750 




0387 00 4C18038C 




BSC 


L 


G384.+- 




80006760 




0389 00 44000F65 




esi 


L 


FOOO 


SRT 32-A REG FAILED 


80006770 




038B 0042 


P384 


OC 




/0042 


♦ERROR 42 


80006780 




038C 00 44000F7C 


G384 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80006790 




DATE 28FEB66 


29JUN66 04N0V66 l5FFBfi7 




PROG 10 


0800-1 


EC NO. 415120 


-£•15(75 


A 41 


523 


3 4 1 5?^*F 




PAGE 


5A 
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OP CODES SECTION 



MMf NO. 
PA.GSE 



2183266 
6A 



038E 

03CF 



70F6 
1800 



0390 00 4C180395 
0392 00 44000F65 

0394 0043 

0395 00 44000F7C 
0397 /OED 



0398 

0399 
039A 00 
039C 00 
039E 
039F 00 
03A1 
03A2 
03A3 
03A4 00 
03A6 00 
03A8 
03A9 00 
03AB 



C030 

188F 

4Ci8039F 

44000F65 

0044 

44000F7C 

70F6 

1800 

F026 

4C1803A9 

44000F65 

004 5 

44000F7C 

70EC 



03AC 
03AD 
03AE 
03AF 
03B0 
03B1 
03B2 
03B3 
0365 
03B7 
03B8 
03BA 
03BB 
038C 
03B0 
03BF 
03C1 
03C2 
03C4 
03C5 
3C6 
03C7 
03C8 
03C9 
03CA 
03CB 



03CC 
03CD 
03CE 
03CF 
0300 
03D1 
0303 
03D5 
03D6 
03D8 
03D9 
030A 
03DB 
03DD 
03DF 



C01C 
1880 
1882 
1884 
1886 
1888 
1884 
00 4C1 E03B8 
00 41000F65 
0046 
00 44000F7C 
70F1 
18D0 
FOOE 
00 4C1803C2 
00 44000F65 
9 004 7 
00 4400CF7C 
70E7 
7006 
O 8000 
FFFF 
4000 
5555 
AAAA 
0001 



C035 
18D0 
C032 
18CF 
F034 
00 4C1803D6 
00 44000F65 
0050 
00 44000F7C 
70F3 
18D0 
F02B 
00 4C1803E0 
00 44000F65 
0051 



P386 
G386 

****** 
A388 



P388 
G388 



P38A 
C3 8A 

****** 
A38C 



MDX 

RTE 

BSC 

BSI 

OC 

BSI 

MDX 

******** 

LD 

SRT 

BSC 

BSI 

OC 

BSI 

MOX 

RTE 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

******** 

LD 



P38C 
G38C 



P33E 
G38E 



N380 
N381 
N382 
N383 
N384 
N385 
* 

* 

****** 

A3C0 



SRT 

SRT 

SRT 

SRT 

SRT 

SRT 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 



A 394 

16 

G386,*- 

FOOO 

/0043 

F005 

A 384 

********** 

N383 
15 

G388,*- 

FOOO 

/0044 

F005 

A388 

16 

N384 

G?8A,+- 

FCOO 

/0045 

FC05 

A338 

********** 

N383 



2 

4 

6 

8 

10 

G38C+- 

FOOO 

/0046 - 

F005 

A38C 

16 

N385 

G38E.+- 

FOOO 

/0047 

F005 

A3GC 

A3C0 

/8000 

/FFFF 

/4000 

/5555 

/AAAA 

/Q001 



LOOP 



SRT 32-Q REG FAILED 
•ERROR 43 
CHECK LOOP SWITCH 
LOOP 
********************* 



SRT 15-A REG FAILED 

♦ ERROR 44 

CHECK LOOP SWITCH 

LOOP 



SRT 15-0 REG FAILED 
♦ERROR 45 
CHECK LOOP SWITCH 
LOOP 
********************* 



SERIES SRT FAILED 

♦ERROR 46 

CHECK LOOP SWITCH 

LOOP 



SERIES SRT FAILED 

♦ERROR 47 

CHECK LOOP SWITCH 

LOOP 

EXIT 



******** 
LO 



F.CO 
G3C0 



P3C2 



RTE 

LD 

RTE 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 



TEST OF RTE OPERATION 

******************************* 

N3C1 

16 

N3C0 

15 

N3C4 

G3C0,*- 

FOOO 

/0050 

F005 

A3C0 

16 

N3C5 

G3C2,*- 

FOOO 

/0051 



RTE 15-0 TO A FAILED 

♦ERROR 50 

CHECK LOOP SWITCH 

LOOP 



RTE 15-A TO Q FAILED 
♦ERROa 51 



DATE 
EC NO. 



28FEB66 
415120 



29JUN66 04NOV66 I5FEB67 
4I5I75A 415233 4I5233B 



80006800 
B0006810 
80006820 
80006830 
80006840 
80006850 
80006860 
80006870 
80006880 
80006890 
80006900 
80006910 
80006920 
8000t>930 
80006940 
80006950 
80006960 
80006970 
80C06980 
8C0C6990 
80007000 
80007010 
80007020 
80007030 
80007040 
80007050 
80007060 
80007070 
80007080 
80007090 
80007100 
80007110 
80007120 
80007130 
80007140 
80007150 
800C7160 
80007170 
00007180 
80007190 
80007200 
80007210 
80007220 
80007230 
80007240 
80007250 
80007260 
80007270 
80007280 
80007290 
80007300 
80007310 
80007320 
80007330 
80007340 
80007350 
80007360 
80007370 
80007380 
80007390 
80007400 
80007410 
80007420 
80007430 
80007440 
80007450 
80007460 
80007470 



PROG ID 
PAGE 



0800-1 
6 



03E0 


00 


44000F7C 


G3C2 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8O0OT48O 




03E2 


C 


70E9 




MDX 




A3C0 


LOOP 


80007*90 










********************************************* 


800Q7500 




03E3 





C020 


A3C4 


LD 




N3C3 




800*7510 




03c4 





18D0 




RTE 




16 




80007520 




03E5 





C01D 




LD 




N3C2 




800O7S30 




03E6 





18C0 




RTE 









800© 75*0 




03E7 





18C1 




RTE 




1 




800SS7550 




03E8 





18C2 




RTE 




2 




8000 7 S60 




03E9 





18C3 




RTE 




3 




BOOSTS 70 




03EA 





18C4 




RTE 




4 




eocwfsso 




03EB 





18C5 




RTE 




5 




80007590 




03EC 





18C6 




RTE 




6 




800*37600 




03ED 





18CA 




RTE 




10 




80037610 




03EE 





F018 




20R 




N3C6 




80007*620 




03EF 


00 


4C1803F4 




BSC 


L 


G3C4.+- 




800*5 7630 




03F1 


00 


44000F65 




BSI 


L 


FOOO 


SERIES RTE FAILED 


80007640 




03F3 





0052 


P3C4 


DC 




/0052 


♦ERROR 52 


80OO7650 




03f4 


00 


44000F7C 


G3C4 


BSI 


L 


F005 


CHECK LOOP SWITCH 


800*3 7660 




03F6 





70EC 




MDX 




A3C4 


LOOP 


80007670 




03F7 





18D0 




RTE 




16 




80037680 




03F8 


00 


4C180 3FD 




BSC 


L 


G3C6.+- 




80097*90 




03FA 


00 


44000F65 




BSI 


L 


FOOO 


SERIES RTE FAILED 


800Q77OO 




03FC 





0053 


P3C6 


DC 




/0053 


♦ERROR 53 


80007710 




03FD 


00 


44000F7C 


G3C6 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80CM>?720 




03FF 





70E3 




MDX 




A3C4 


LOOP 


8OO0773O 




0400 





7007 




MDX 




A400 


EXIT 


8000 7740 




0401 





5555 


N3C0 


DC 




/5555 




800O7750 




0402 





AAAA 


N3C1 


DC 




/AAAA 




8OOO7760 




0403 





0000 


N3C2 


OC 




/oooo 




80007770 




0404 





8000 


N3C3 


OC 




/8000 




80007780 




0405 





5554 


N3C4 


DC 




/5554 




80OO7790 




0406 





AAAB 


N3C5 


DC 




/AAAB 




8OO078OO 




0407 





0001 


N3C6 

• 
• 
* 


DC 




/0001 

TEST 


OF SLA OPERATION 


80OO781O 
80OO7820 
80007830 
80OO?a40 










********************************************* 


80007850 




0408 


00 


C40004A7 


A 400 


lt 


L 


N400 




800O7360 




040A 





18D0 




RTE 




16 




80GO7«70 




040B 


00 


C400C4A7 




LD 


L 


N400 




80007680 




040D 





1010 




SLA 




16 




80007890 




040E 


00 


4C020413 




BSC 


L 


G404.C 




80037900 




0410 


00 


44000F65 




BSI 


L 


FOOO 


SLA 16-CARRY FAILED 


800O7-910 




0412 





0061 


P402 


DC 




/0061 


♦ERROR 61 


800O7920 




0413 


00 


44000F7C 


G404 


bs; 


L 


F005 


CHECK LOOP SWITCH 


8000 t*$q 




0415 





70F2 




MDX 




A400 


LOOP 


80OQ7940 




0416 


00 


4C180-»1B 




BSC 


L 


G400.+- 




8000 7S50 




0418 


00 


44000F65 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


80OO7T60 




041A 





0060 


P400 


DC 




/0060 


♦ERROR 60 


80OOJ970 




041B 


00 


44000F7C 


G400 


BSI 


L 


F005 


CHECK LCjP SWITCH 


8O0O798O 




0410 





70EA 




MDX 




A400 


LOOP 


80007990 




041E 





18D0 




RTE 




16 




8000*000 




041F 


00 


F40004A7 




EOR 


L 


N400 




8000801 3 




0421 


00 


4C18042b 




BSC 


L 


G406.+- 




80008-320 




0423 


00 


44000F65 




BSI 


L 


FOOC 


SLA 16-iFFECTEO RE 


80008030 




0425 





0062 


P406 


DC 




/0062 


♦ERROR 62 


800O®040 




0426 


00 


44000F7C 


G4C6 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8000*050 




0428 





70DF 




MDX 




A400 


LOOP 


80008060 










********************************************* 


800O8O70 




0429 


00 


C40004AC 


A408 


LD 


L 


N405 




8 0008080 




042B 





1800 




RTE 




16 




800O8O90 




042C 





C073 




LD 




N401 




8000*100 




042D 





1010 




SLA 




16 




80008110 




042E 


00 


4C020433 




BSC 


L 


G40CC 




80008120 




0430 


00 


44000F65 




BSI 


L 


FOOO 


SLA 16-CARRY FAILED 


80008130 




0432 





0064 


P40A 


OC 




/0064 


♦ERROR 64 


80008140 




0433 


00 


44000F7C 


G40C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8000S150 
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0*35 


70F3 




MOX 




A40R 


LOG? 


0436 00 


4C18043B 




BSC 


L 


G408,*- 




0438 00 


44000F65 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


043A 


0063 


P408 


DC 




/0063 


♦ERROR 63 


043B 00 


44000F7C 


G403 


BSI 


L 


F005 


CHECK LOOP SWITCH 


043D 


70EB 




MDX 




A408 


LOOP 


043E 


1800 




RTE 




16 




043F 00 


4C 180444 




BSC 


L 


G40E.+- 




0441 00 


44000F65 




BSI 


L 


FOOO 


SLA 16-AFFECTED Q REC 


0443 


0065 


P40E 


DC 




/0065 


♦ERROR 65 


0444 00 


44000F7C 


G40E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0446 


70E2 




MDX 




A408 


LOOP 






**** *********** ****************************** 


0447 


C06'» 


B400 


LD 




N405 




0448 


18D0 




RTE 




16 




0449 


C060 




LD 




N403 




044A 


1001 




SLA 




1 




044B 00 


4C020450 




BSC 


L 


H402.C 




0440 00 


44000F65 




BSI 


L 


FOOO 


SLA 1-CARRY FAILED 


044F 


0067 


R402 


DC 




/0067 


♦ERROR 67 


0450 00 


44000F7C 


H402 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0452 


70F4 




MDX 




B400 


LOOP 


0453 


F057 




EOR 




N404 




0454 00 


4C180459 




BSC 


L 


H400.+- 




0456 00 


44000F65 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


0458 


0066 


R400 


DC 




/0066 


♦ERROR 66 


0459 00 


4400CF7C 


H400 


BSI 


L 


F005 


CHECK LOOP SWITCH 


045B 


70EB 




MDX 




B400 


LOOP 


045C 


18D0 




RTE 




16 




0450 00 


4C180462 




BSC 


L 


H404 t +- 




045F 00 


44000F65 




BSI 


L 


FOOO 


SRA 1-AFFECTED Q REG 


0461 


0068 


R404 


DC 




/0068 


*ERROR 68 


0462 00 


44000F7C 


H404 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0464 


70E2 




MDX 




B400 


LOOP 






****** ******** ***************** ******** ****** 


0465 


C046 


B406 


LO 




N405 




0466 


1800 




RTE 




16 




0467 


C041 




LD 




N402 




0468 


1001 




SLA 




1 




0469 00 


4C02046C 




BSC 


L 


H407.C 




046B 


7003 




MDX 




H405 




046C 00 


44000F65 


H407 


BSI 


L 


FOOO 


SLA 1-CARRY FAILEO 


046E • 


006A 


R407 


DC 




/006A 


♦ERROR 6A 


046F 00 


44000F7C 


H405 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


0471 


70F3 




MDX 




B406 


LOOP 


0472 


F037 




EOR 




N403 




0473 00 


4C 18047 8 




BSC 


L 


H406.+- 




0475 00 


44000F65 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


0477 


0069 


R406 


DC 




/0069 


♦ERROR 69 


0478 00 


44000F7C 


H406 


BSI 


L 


F005 


CHECK LOOP SWITCH 


047A 


70EA 




MDX 




B406 


LP OP 


047B 


18D0 




RTE 




16 




047C 00 


4C180481 




BSC 


L 


H408.+- 




04 7E 00 


44000F65 




BSI 


L 


FOOO 


SLA 1-AFFECTED 9 REG 


0480 


0063 


R403 


re 




/006B 


♦ERROR 6B 


0481 00 


44000F7C 


H408 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0483 


70E1 




MDX 




B406 


LOOP 






********************************************* 


0484 


C027 


B40A 


LD 




N405 




0485 


18D0 




RTE 




16 




0486 


C021 




LD 




N401 




0487 


1000 




SLA 









0488 


1001 




SLA 




1 




0489 


1002 




SLA 




2 




048A 


1004 




SLA 




4 




048B 


1006 




SLA 




6 




048C 


1003 




SLA 




3 




048D 00 


4C020492 




BSC 


L 


H40D|C 
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80006510 
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80008530 
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80O0857C 
80008580 
80008590 
80008600 
30008610 
80008620 
80003630 
80008640 
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80008660 
80008670 
80008680 
80008690 
80008700 
80008710 
80008720 
80008730 
80008740 
80008750 
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80008780 
80008790 
80003800 
80008810 
80008820 
8000883G 
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0800-1 

7 



048F 


00 


44000F65 




asi 


L 


FOOO 


COM3 SLA-CARRY FAILED 


80003840 




0491 





006D 


R40C 


DC 




/0C6D 


•ERROR 60 


80008850 




0492 


00 


4 000F7C 


H400 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80008860 




0494 





70EF 




MDX 




B40A 


LOOP 


80008870 




0495 


00 


4C18049A 




BSC 


L 


H40A.+- 




80008880 




0497 


00 


44000F65 




BSI 


L 


FOOO 


COM3 SLA-A REG FAILE 


80008890 




0499 





006C 


R40A 


DC 




/006C 


♦ERROR 6C 


80008900 




04 9A 


00 


44000F7C 


H40A 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80008910 




049C 





70E7 




MDX 




B40A 


LOOP 


80008920 




049D 





18D0 




RTE 




16 




80008930 




049E 


00 


4C1804A3 




BSC 


L 


H40E,*- 




80008940 




04A0 


00 


44000F65 




BSI 


L 


FOOO 


COM3 SLA-AFFECTEO Q 


80008950 




04A2 





006E 


R40E 


DC 




/006E 


♦ER*OR 6E 


J0008960 




04A3 


00 


44000F7C 


H40E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80008970 




04A5 





70DE 




MDX 




B40A 


LOOP 


80008980 




04A6 





7006 




MDX 




A 440 


EXIT 


80008990 




04A7 





FFFF 


N400 


DC 




/FFFF 




80009000 




04A8 





0001 


N401 


DC 




/0001 




80009010 




04A9 





5555 


N402 


DC 




/5555 




80009020 




04AA 





AAAA 


N403 


DC 




/AAAA 




80009030 




04AB 





5554 


N404 


DC 




Z5554 




80009040 




04AC 





0000 


N405 

♦ 
♦ 
* 


DC 




/OOOO 

TEST 


OF SLT OPERATION 


80009050 
80009060 
80009070 

80009080 










********************************************* 


30009090 




04AD 





C07E 


A 440 


LD 




N440 




80009100 




04AE 





18D0 




KTE 




16 




80009110 




04AF 





C07D 




LO 




N441 




80009120 




04B0 





10A0 




SLT 




32 




80009130 




04B1 


00 


4C0204B6 




BSC 


L 


G442tC 




80009140 




04B3 


00 


44000F65 




BSI 


L 


FOOO 


SLT 32-CARKY FAILED 


80G09150 




04B5 





0081 


J 442 


DC 




/0C81 


♦ERROR 81 


80009160 




0486 


Co 


44000F7C 


G442 


BSI 


L 


r-005 


CHECK LOOP SWITCH 


80009170 




04B8 





70F4 




MDX 




A440 


LOOP 


80009180 




0«»39 


00 


4C1804BE 




BSC 


L 


G*40t+- 




80009190 




04BB 


00 


44000F6 5 




BSI 


L 


FOOO 


SLT 32-A REG FAILEO 


80009200 




043D 





0080 


P440 


DC 




/0080 


♦ERROR 80 


80009210 




0' BE 


CO 


44000F7C 


G440 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80009220 




04C0 





70EC 




MDX 




A440 


LOOP 


80009230 




04C1 





18D0 




RTE 




16 




80009240 




04C2 


00 


4C1804C7 




asr. 


L 


G443t+- 




80009250 




04C4 


00 


44000F65 




BSI 


L 


FOOO 


SLT 32-0 REG FAILED 


80009260 




04C6 





0082 


P443 


DC 




/0082 


♦ERROR 82 


30009270 




04C7 


00 


44000F7C 


G443 


8SI 


L 


F005 


CHECK LOOP SWITCH 


80009280 




04C9 





70E3 




MDX 




A440 


LOOP 


80009290 










********************************************* 


80009300 




04CA 





C063 


A444 


LD 




N442 




80009310 




04CB 





18D0 




RTE 




16 




80009320 




04CC 





C060 




LD 




N441 




80009330 




04CD 





1090 




SLT 




16 




80009340 




04CE 


00 


4C0204D1 




BSC 


L 


G446.C 




80009350 




0400 





7003 




MDX 




G447 




80009360 




04D1 


00 


44000F65 


G446 


BSI 


L 


FOOO 


SLT 16-C;?RY FAILEO 


80009370 




0403 





0084 


P446 


DC 




/0084 


♦ERROR 84 


80009380 




04D4 


00 


44000F7C 


G447 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80009390 




04D6 





70F3 




MDX 




A 444 


LOOP 


80009400 




04D7 





F056 




EOR 




N442 




80009410 




0408 


00 


4C1804DD 




BSC 


L 


G444,*- 




80009420 




040A 


00 


44000F65 




BSI 


L 


FOOO 


SLT 16-A REG FAILED 


80009430 




04DC 





0083 


P444 


DC 




/0083 


♦ERROR 83 


80009440 




04DD 


00 


44000F7C 


G444 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80009450 




04DF 





YOEA 




MOX 




A444 


LOOP 


80009460 




04E0 





18D0 




RTE 




16 




80009470 




04E1 


00 


4C1804E6 




BSC 


L 


G448.+- 




80009480 




04E3 


00 


44000^6 5 




BSI 


1 


FOOO 


SLT 16-8 REG FAILEO 


80009490 




04E5 





0085 


P448 


DC 




/C085 


♦ERROR 85 


80009500 




04E6 


00 


44000F7C 


G448 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80009510 
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04E8 





70E1 




MDX 




A444 


LOOP 




8C009520 










********************************************* 


80009530 




04E9 





C045 


A44A 


LO 




N443 






80009540 




04EA 





1800 




RTE 




16 






80009550 




04EB 





C041 




LD 




N441 






30009560 




04EC 





108F 




SLT 




15 






80009570 




04E0 


00 


4C0204FO 




BSC 


L 


G44C.C 






80009580 




04EF 





7003 




MDX 




G44D 






30009590 




04F0 


00 


44C00F65 


G44C 


BSI 


L 


FOOO 


SLT 15-CARRY FAILEO 


80009600 




04F2 





0087 


P44C 


DC 




/0087 


♦ERROR 87 




80009610 




04F3 


CO 


44000F7C 


G440 


BSI 


L 


F005 


CHECK LOOP 


SWITCH 


80009620 




04F5 





70F3 




MDX 




A 44 A 


LOOP 




80009630 




04F6 





F039 




EOR 




N444 






80009640 




04F7 


00 


4C1804FC 




BSC 


L 


..44A.+- 






80009650 




04F9 


00 


44000F65 




BSI 


L 


FCOO 


SLT 15-A REG FAILED 


800096C0 




04FB 





0086 


P44A 


DC 




/0086 


♦ERROR 86 




80009670 




04FC 


00 


44000F7C 


G44A 


BSI 


L 


F005 


CHECK LOOP 


SWITCH 


80009680 




04FE 





70EA 




MOX 




A44A 


LOOP 




80009690 




04FF 





18D0 




RTE 




16 






80009700 




0500 





F030 




EOR 




N445 






8000^710 




0501 


00 


4C180506 




BSC 


L 


G44E.+- 






800O9720 




0503 


00 


44000F65 




BSI 


L 


FOOO 


SLT 15-Q REG FAILED 


80009730 




0505 





0088 


°44E 


DC 




/0088 


♦ERROR 88 




80009740 




0506 


00 


44000F7C 


G44E 


BSI 


L 


F005 


CHECK LOOP 


SWITCH 


80009750 




0508 





70E0 




MDX 




A44A 


LOOP 




80009760 










************** ************************ ******* 


80009770 




0509 





C022 


B440 


LD 




N440 






80009780 




050A 





1800 




RTE 




16 






80009790 




050B 





C021 




LO 




N441 






80009300 




050C 





loao 




SLT 











80009810 




050D 





1081 




SLT 




1 






80009820 




050E 





1085 




SLT 




5 






80009830 




050F 





1087 




SLT 




7 






80009840 




0510 





1089 




SLT 




9 






80009850 




0511 





103A 




SLT 




10 






80009860 




0512 


00 


4C020517 




BSC 


L 


H443.C 






80009870 




0514 


00 


44000F65 




BSI 


L 


FOOO 


COMB SLT-CARRY FAILEO 


80009880 




0516 





008A 


R442 


OC 




/008A 


♦ERROR 8A 




80009R90 




0517 


00 


44000F7C 


H443 


BSI 


L 


FC05 


CHECK LOOP 


SWITCH 


80009900 




0519 





70EF 




MDX 




B440 


LOOP 




80009910 




051A 


0. 


4C18051F 




BSC 


L 


H440 t «~ 






80009920 




051C 


00 


44000F65 




BSI 


L 


FOOO 


COMB SLT-A 


REG FAILE 


80009930 




051E 





0089 


R440 


DC 




/0089 


♦ERROR 89 




80009940 




051F 


00 


44000F7C 


N440 


BSI 


L 


F005 


CHECK LOOP 


SWITCH 


80009950 




0521 





70E7 




MDX 




B440 


LOOP 




80009960 




0522 





18D0 




RTE 




16 






80009970 




0523 


00 


4C180528 




3SC 


L 


H444.+- 






80009980 




0525 


00 


44000F65 




BSI 


L 


FOOO 


COM3 SLT-0 


REG FAILE 


80009990 




0527 





0088 


R444 


DC 




/008B 


♦EP^OR 8B 




80010000 




0528 


00 


44000F7C 


H444 


BSI 


L 


F005 


CHECK LOOP 


SWITCH 


80010010 




052A 





70DE 




MDX 




B440 


LOOP 




80010020 




052B 





7006 




MDX 




A480 


EXIT 




80010030 




052C 





0001 


N440 


DC 




/ooo; 






80010040 




0520 





0000 


N441 


DC 




/oooo 






80010050 




052E 





FFFF 


N442 


DC 




/FFFF 






80010060 




052F 





5555 


N443 


DC 




Z5555 






80010070 




0530 





2AAA 


N444 


DC 




/2AAA 






80010080 




0531 





8000 


N445 

* 


DC 




/8000 






80010090 
80010100 










* 






TEST 


OF STO OPERATION 


80010110 










* 












80010120 










******************************************** 


80010130 




0532 





C019 


A480 


LD 




N480 






80010140 




0533 





D01A 




STO 




N482 






80010150 




0534 





C018 




LO 




N481 






80010160 




0535 





C018 




LD 




N482 






80010170 




0536 


00 


4C18053B 




BSC 


L 


G480 t +- 






80010180 




0538 


00 


44000F65 




BSI 


L 


F000 


STO ZEROS 1 


FAILED 


80010190 
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053 A 





oc^o 


P480 


OC 




/0090 


♦ERROR 90 


80010200 




053B 


00 


44000F7C 


G480 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80010210 




0530 





70F4 




MOX 




A480 


LOOP 


80010220 










********************************************* 


80010230 




053E 





COOE 


A482 


LD 




N481 




800102*0 




053F 





DOOE 




STO 




N482 




8C0 10250 




0540 


c 


COOB 




LD 




N480 




800 10260 




0541 





COOC 




LO 




N'.82 




8001027Q 




0542 





FOOA 




EOR 




N481 




80010230 




0543 


00 


4C180548 




BSC 


L 


G482t+- 




800102W 




0545 


00 


44000F65 




BSI 


L 


FOOO 


STO ONES FAILEO 


8 v. 010300 




0547 





0091 


P482 


OC 




/C091 


♦ERROR 91 


8001 031O 




0548 


00 


44000F7C 


G482 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80010320 




054A 





70F3 




MDX 




A482 


LOOP 


80010330 




054B 





7003 




MDX 




A4C0 


EXIT 


80010340 




054C 





0000 


N480 


OC 




/OOOO 




8001 035Q 




054D 





FFFF 


N481 


OC 




/FFFF 




80010360 




054E 





FFFF 


N482 

* 
* 
* 


OC 




/FFFF 

TEST 


OF STS OPERATION 


8001 0370 
80010380 
8001O39Q 
800104OO 










****** *************************************v* 


80010410 




054F 





2000 


A4C0 


LDS 









8001042G 




0550 





285B 




STS 




N4C0 




80010430 




0551 





C05A 




LD 




N4C0 




80010440 




0552 


00 


4C180557 




BSC 


L 


G4C0.+- 




80010450 




0554 


00 


44000F65 




BSI 


L 


FOOO 


STS FAILED TO STORE 


80010460 




0556 





0100 


P4C0 


DC 




/0100 


♦ERROR 100 


80010470 




0557 


00 


44000F7C 


G4C0 


8SI 


L 


F005 


CHECK LOOP SW'.TCH 


800104SO 




0559 





70F5 




MDX 




A4C0 


LOOP 


80010490 










■"• ******************************************** 


80010500 




055A 





COFF 


A4C2 


LD 




A-«C2 




8001051O 




055B 





2003 




LDS 




3 




E0010520 




055C 





284F 




STS 




N4C0 




80010530 




0550 





FOFC 




EOR 




A4C2 




8001 054O 




055E 


00 


4C180E 3 




BSC 


L 


H4C3.+- 




8001055O 




05-0 


OC 


44000F65 




BSI 


L 


FOOO 


ACC GONE AFT LDS-STS 


80010560 




562 





0347 




OC 




/347 


♦ ERROR 3^7 


80010570 




563 


00 


4C020566 


H4C3 


BSC 


L 


H4C2.C 




80010580 




0565 





7003 




MOX 




G4C2 




80010590 




0566 


00 


44000F65 


h4C2 


BSI 


L 


FOOO 


STS NOT CLEAR CARRY 


80010600 




0568 





0101 


P4C2 


DC 




/0101 


♦ERROR 101 


8001061O 




0569 


00 


44000F7C 


G4C2 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80010620 




056B 





70EE 




MDX 




A4C2 


LOOP 


80010630 




056C 


00 


4C01056F 




BSC 


L 


H4C4.0 




80010640 




056E 





7003 




MDX 




G4C4 




80010650 




056F 


00 


44000F65 


H4C4 


BSI 


L 


FOOO 


STS NOT CLEAR OVtRFLW 


80010660 




0571 





0102 


P4C4 


OC 




/0102 


♦ERROR 102 


8001 0b70 




0572 


00 


44000F7C 


G4C4 


BSI 


L 


F005 


CHECK LOOP SWITCH 


800106SO 




0574 





70E5 




MDX 




A4C2 


LOOP 


80010690 




0575 





C036 




LD 




N4C0 




800107&W 




0576 





F036 




EOR 




N4C1 




80010710 




0577 


00 


4C13057C 




BSC 


L 


G4C6.+- 




80010720 




0579 


00 


44000F65 




BSI 


L 


FOOO 


STS FAILED TO STORE 


800107 30 




057B 





0103 


P4C6 


OC 




/0103 


♦ERROR 103 


80010740 




057C 


00 


44000F7C 


G4Co 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80010750 




057E 





70 DB 




MDX 




A4C2 


LOOP 


80010760 










♦♦♦*♦******** 


******************************** 


8001 077O 




057F 





200 2 


A4C8 


LOS 




2 




80010780 




0580 





282B 




STS 




N4C0 




80010790 




0581 





282C 




STS 




N4C2 




8001 08OO 




0582 





C029 




LD 




N<CO 




80010810 




0583 





F02B 




EOR 




N4C3 




80010820 




0584 


00 


4C180589 




BSC 


L 


G4C8.+- 




80010830 




0586 


00 


44000F65 




BSI 


L 


FOOO 


STS FAILED TO STORE 


80010840 




0588 





0104 


P4C8 


DC 




/0104 


♦ERROR 104 


80010850 




0589 


00 


44000F7C 


G4C8 


BSI 


L 


F005 


CHECK LOUP SWITCH 


8001086O 




058B 





70F3 




MDX 




A4C8 


LOOP 


80010870 




DATE 
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058C 





C021 




LD 




N4C2 


058D 


00 


4C180592 




BSC 


L 


G4CA.+- 


058F 


00 


44000F65 




BSI 


L 


FOOO 


0591 





0105 


P4CA 


DC 




/0105 


0592 


00 


44000F7C 


G4CA 


BSI 


L 


F005 


0594 





70EA 




MDX 




A4C8 








********** ************** 


0595 





2001 


A4CC 


LDS 




1 


0596 





2815 




STS 




N4C0 


0597 





2316 




STS 




N4C2 


0598 





C013 




LD 




N4C0 


0599 





F016 




COR 




N4C4 


059A 


00 


4C18059F 




BSC 


L 


G4CC.+- 


059C 


00 


44000F65 




BSI 


L 


FOOO 


059E 





0106 


P4CC 


DC 




/0106 


059F 


00 


44000F7C 


G4CC 


BSI 


L 


F005 


05A1 





70F3 




MOX 




A4CC 


05A2 





COOB 




LD 




N4C2 


05A3 


00 


4C1805A8 




BSC 


L 


C-4CD,*- 


05A5 


00 


44000F65 




BSI 


L 


FOOO 


05A7 





0107 


P4CD 


DC 




/0107 


05AR 


00 


44000F7C 


G4C0 


BSI 


L 


F005 


05AA 





70EA 




MOX 




A4CC 


05AB 





7005 




MOX 




A500 


05AC 





0003 


N4C0 


DC 




/0003 


05A0 





C003 


N4C1 


DC 




/0003 


05AE 





0000 


N4C2 


DC 




/COOO 


05AF 





000 2 


N4C3 


DC 




/0002 


05B0 





0001 


N4C4 
* 

* 


OC 




/C001 

TEST 








************************ 


05B1 





2003 


A500 


LDS 




3 


05B2 


00 


C4000'j42 




LD 


L 


N500 


05B4 





432F 




BSC 




O+EZC 


05B5 





7003 




MDX 




G500 


05B6 


00 


44C00F65 




BSI 


L 


FOOO 


05B8 





0110 


P500 


DC 




/0110 


05B9 


00 


44000F7C 


G500 


BSI 


L 


FC05 


058B 





70F5 




MOX 




A 500 








************************ 


05BC 


T 


2003 


A502 


LDS 




3 


0580 


00 


C4000643 




LD 


L 


M501 


05BF 


c 


4513 




BSC 




-0C + 


05C0 





7003 




MDX 




G502 


05C1 


00 


440OOF65 




BSI 


L 


FOOO 


05C3 





0111 


P502 


DC 




/Gill 


05C4 


00 


44000F7C 


G502 


BSI 


L 


F005 


05C6 





70F5 




MDX 




A502 








**************«**«**£**« 


C5C7 





2003 


A 504 


LOS 




3 


05C8 





C07B 




LD 




N502 


05C9 





2309 




STS 




N507 


05CA 





4615 




PSC 




0-E 


05CB 





7001 




MOX 




G504 


05CC 





7C03 




MOX 




G505 


05CD 


00 


44000F65 


G504 


BSI 


L 


FOOO 


05CF 





0112 


P504 


DC 




/0112 


05D0 


00 


44000F7C 


G505 


BSI 


L 


FC05 


0502 





7CF4 




MDX 




A504 


05D3 





2C00 


N507 


LOS 







504 





4601 




BSC 







0505 





4801 




BSC 







0506 





7001 




MDX 




G506 


0507 





7003 




MOX 




G507 


05D8 


00 


44GO0F65 


G506 


8SI 


L 


FOOO 


05DA 





0113 


P506 


OC 




/0113 


OATE 




2SFEB66 


29JUN66 04N0V66 I5FEB67 


EC NO. 


415120 


4l5l7!iA 415233 4I5233B 



STS NOT CLEAR CARRY 
♦ERROR 105 
CHECK LOOP SWITCH 
LOOP 
********************* 



STS FAILED TO STORE 

♦ERROR 106 

CHECK LOOP SWITCH 

LOOP 



STS NOT CLEAR CVERrL 

♦ERROR 107 

CHECK LOOP SWITCH 

LOOP 

EXIT 



OF BSC OPERATION 
********************* 



BSC SKPD-SHOULD NOT 
♦ERROR 110 
CHECK LOOP SWITCH 
LOOP 
********************* 



BSC SKPD-SHOULD NOT 
♦ERROR 111 
CHECK LOTP SWITCH 
LOOP 
********************* 



BSC FAILED TO SKIP 

♦ERROR 112 

CHECK LOOP SWITCH 

LOOP 



BSC NOT C.tAR OVERFLW 
♦ERROR 113 



80010880 
80010890 
30010900 
80010910 
80010920 
80010930 
80010940 
80010950 
80010960 
80010970 
80C10980 
80010990 
80011000 
80011010 
80011020 
b0011030 
80011340 
80011050 
80011060 
80011070 
80011080 
80011090 
80011100 
80011110 
80011120 
80011130 
80011140 
80011150 
80011160 
80011170 
80011180 
80011190 
80011200 
80011210 
80011220 
80011230 
80011240 
80011250 
80011260 
80011270 
80011280 

eooii2°o 

8001 J 300 
80011310 
80011320 
80011330 
8001 1340 
80011350 
80011360 
80011370 
80011380 
80011390 
80011400 
80011410 
80011420 
80011430 
80011440 
80011450 
80011460 
30011470 
80011480 
80011490 
G0011500 
80011510 
80011520 
80011530 
80011540 
80011550 



PROG ID 
PAGE 



050B 00 44000F7C 
05DD 70E9 



G507 BSI L F005 CHECK LOOP SWITCH 

MDX A 504 LOOP 
*******♦******************************-■****** 



0300-1 
9 



05DE 





2000 


A508 


LDS 









05DF 





C065 




LD 




N503 




05E0 





482A 




BSC 




C+Z 




05E1 





7001 




MDX 




G508 




05E2 





7003 




MDX 




H508 




05E3 


00 


44000F65 


G508 


BSI 


L 


FOOO 


BSC FAILED TO SKIP 


05E5 





0114 


P508 


DC 




/0114 


*ERR0R 114 


05E6 


00 


44000F7C 


H508 


BSI 


L 


F005 


CHECK LOOP SWITCH 


05E8 





70F5 




MDX 




A506 


LOOP 








********************************************* 


05E9 





2003 


A50A 


LDS 




3 




05EA 





C057 




LD 




N500 




05EB 


00 


4C0F05FC 




BSC 


L 


G50A,*0CE 




05ED 





7001 




MDX 




H50A 




05EE 





7006 




nox 




J50A 




05EF 


00 


4V000F65 


H50A 


BSI 


L 


FOOO 


BSC FELL THRU 


05F1 





0115 


P50A 


DC 




/"0115 


♦ERROR 115 


05F2 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


05K4 





70F4 




MDX 




A50A 


LOOP 


05F5 


00 


44000F65 


J50A 


BSI 


L 


FOOO 


BSC SKPD-SHOULD BRNCH 


05F7 





0116 


R50A 


DC 




/0116 


♦ERROR 116 


05F8 


CO 


44000F7C 


K50A 


BSI 


L 


F005 


CHECK LOOP SWITCH 


05FA 





70EE 




MDX 




A 50 A 


LOOP 


05FB 





7008 




MDX 




A50C 




C5FC 





F045 


G50A 


E0R 




N500 




05FC 





4820 




BSC 




Z 




05FE 





7001 




MDX 




H50B 




05FF 





70F8 




MDX 




K50A 




0600 


00 


44000F65 


H508 


8SI 


L 


FOOO 


ACC DISTROYED AFTER 


0602 





0357 




DC 




/357 


♦ ERROR 357 


0603 





70F4 




MDX 




K50A 










********************************************* 


0604 





2003 


A50C 


LDS 




3 




0605 





C040 




LD 




N504 




0606 


00 


4C30L >0A 




BSC 


L 


G50C.-Z 




Cj08 





7002 




MDX 




H50C 




0609 





7007 




MOX 




J50C 




060A 





7009 


G50C 


MOX 




K50C 




0603 


CO 


44000F65 


H50C 


BS» 


L 


FOOO 


BSC FELL THRU 


0600 





0117 


°50C 


OC 




/0117 


♦ERROR 117 


06 OE 


00 


4400C C 7C 




BSI 


L 


FC05 


CHECK LOOP SWITCH 


0610 





70F3 




MDX 




A50C 


LOOP 


0611 


00 


44000F65 


J50C 


BSI 


L 


FOOO 


BSC SKPD-SHOULO 8RNC 


0613 





0118 


R50C 


OC 




/0118 


♦ERROR 118 


0614 


OC 


44000F7C 


K50C 


BSI 


L 


F005 


CHECK LOOP SWiTCK 


0616 





70ED 




Mor 




A50C 


LOOP 


0617 





2000 




LDS 















********************************************* 


0618 





2003 


A50E 


LDS 




3 




0619 





C028 




LO 




N500 




061A 


00 


4C3F061E 




BSC 


L 


G50E.+EOCZ 




061C 





700B 




MDX 




H50E 




061D 





7007 




MDX 




J50E 




061E 


00 


44000F65 


G50E 


BSI 


L 


FCOO 


BSC BRNCHED-SHOULONT 


0620 





0119 


P50E 


DC 




/0119 


♦ERROR 119 


0621 


00 


44000F7C 


K50E 


6SI 


L 


F005 


CHECK LOOP SWITCH 


0623 





70F4 




MDX 




A50E 


LOOP 


0624 





7006 




MOX 




B500 




0625 


00 


44000F65 


J50E 


BSI 


L 


FOOO 


BSC SKPO-SHOULDNT 


0627 





011A 


R50E 


DC 




/011A 


♦ERROR 11A 


0628 


00 


44000F7C 


H50E 


BSI 


L 


f C05 


CHECK LOOP SWITCH 


062A 





70E0 




MOX 




A50E 


LOOP 








********************************************* 


062B 





2003 


B500 


LDS 




3 




062C 





C018 




LD 




N503 




DATE 
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80011570 
80011580 
80011590 
80011600 
80011610 
80011620 
80011630 
30011640 
80011650 
80011660 
80011670 
80011680 
80011690 
80011700 
80011710 
80011720 
00011730 
80011740 
80011750 
80011760 
8001 1770 
30011780 
80011790 
80011800 
80011810 
80011820 
80011830 
80011840 
80011850 
80011860 
80011870 
60011880 
80011890 
80011900 
80011910 
80011920 
80011930 
80011940 
80011950 
80011960 
80011970 
80011980 
80011990 
80012000 
80012010 
80012020 
80012030 
80012040 
80012050 
80012060 
80C120"'0 
80012080 
80012090 
80012100 
80012110 
80012120 
80012130 
80012140 
80012150 
80012160 
80012170 
80012180 
8C012190 
80012200 
80012210 
80012220 
80012230 
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0620 





4808 




BSC 




•f 




80012240 




062E 





700C 




MDX 




S501 




80012250 




062F 





2817 




STS 




N505 




80012260 




0630 





C016 




LD 




N505 




30012270 




0631 





F016 




EOR 




N506 




80012280 




0632 


00 


4C18063E 




BSC 


L 


S503.+- 




80012290 




0634 


00 


44000F65 




BSI 


L 


FOOO 


BSC ♦ CLEARED OVFLW 


80012300 




0636 





011S 


S500 


DC 




/CUB 


♦ERROR 113 


80012310 




0637 


00 


44000F7C 


K500 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


80012320 




0639 





70F1 




MDX 




B500 


LOOP 


80012330 




063A 





700E 




MDX 




A540 




80012340 




0636 


00 


44000F65 


S501 


BSI 


L 


FOOO 


BSC FAILED TO SKP 


80012350 




0630 





one 


S502 


DC 




/C11C 


♦ ERROR UC 


80012360 




063E 


00 


44000F7C 


S503 


BSI 


• 


F005 


CHECK LOOP SWITCH 


80012370 




0640 





70EA 




MDX 




B500 


LOOP 


80012380 




0641 





7007 




MDX 




A540 


EXIT 


80012390 




064? 





8001 


N500 


DC 




/8001 




8001240: 




0643 





0000 


N501 


DC 




/OOOO 




80012410 




0644 





8000 


N502 


DC 




/8000 




80012420 




0645 





0001 


N503 


DC 




/0001 




80012430 




0646 





0004 


N504 


DC 




/0004 




80012440 




0647 





0000 


N505 


DC 




/OOOO 




80012450 




0648 





0003 


N506 

* 
* 
* 


DC 




/0003 

TEST 


OF BSI OPERATION 


80012460 
80012470 
80012480 
80012490 










********************************************* 


80012500 




0649 





2003 


n540 


IDS 




3 




80012510 




064A 


00 


C40006F0 




LD 


L 


N540 




80012520 




064C 


00 


442F065E 




BSI 


L 


GS40.ECO+Z 




80012530 




064E 





7001 




MDX 




H540 




80012540 




064F 





7007 




MDX 




J 540 




80012550 




0650 


00 


44000F65 


H540 


BSI 


L 


FOOO 


BSI FELL THRU 


80012560 




0652 





0120 


P540 


DC 




/0120 


♦ERROR 120 


80012370 




0653 


00 


4400UF7C 


K540 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


80012580 




0655 





70F3 




MDX 




AE40 


LOOP 


80012590 




0656 





7016 




MDX 




A ^44 




80012600 




0657 


00 


4400CF65 


J540 


BSI 


L 


FCOO 


BSI SKPD-SHOULD BRNC 


80012610 




0659 





0121 


R540 


DC 




/C121 


♦ERROR 121 


80012620 




065A 


00 


44000F7C 


L540 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


80012630 




065C 





70EC 




MDX 




A540 


LOOP 


80012640 




0650 





700F 




MDX 




A544 




80012650 




065E 





0000 


G540 


DC 




/OOOO 




80012660 




065F 


00 


2C0006F1 




STS 


L 


N541 




80012670 




0661 


00 


C40006F1 




LD 


L 


N541 




80012680 




0663 


00 


F40006F2 




EOR 


L 


N542 




80012690 




0665 


00 


4C13066A 




BSC 


L 


G542.+- 




80012700 




0667 


00 


44C0OF65 




BSI 


L 


FOOO 


BSI NOT CLEAR OVERFLW 


80012710 




0669 





0122 


P542 


DC 




/C122 


♦ERROA 122 


80012720 




066A 


00 


44000F7C 


G542 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80012730 




066C 





70DC 




MDX 




A540 


LOoP 


80012740 










************♦♦********#********************** 


80012750 




066D 


00 


C40006F2 


A 544 


LD 


L 


N542 




80012760 




066F 


00 


44300681 




BSI 


L 


G544.Z- 




80012770 




0671 





7001 




MDX 




HS44 




80012780 




0672 





7007 




MDX 




J544 




80012790 




0673 


00 


44000F65 


H544 


BSI 


L 


FOOO 


BSI FELL THROUGH 


80012800 




0675 





0123 


P544 


OC 




/0123 


♦ERROR 123 


80012810 




0676 


00 


44000F7C 




BSI 


L 


FC05 


CHECK LOOP SWITCH 


80012820 




0678 





70F4 




MDX 




A 544 


LOOP 


80012830 




0679 





7008 




MDX 




A546 




80012840 




067A 


00 


44000F65 


J544 


8SI 


L 


FOOO 


BSI SKPD-SHOULD BRNC 


80C12850 




067C 





0124 


S544 


DC 




/0124 


♦ERROR 124 


80012860 




067D 


00 


44000F7C 




BSI 


L 


FC05 


CHECK LOOP SWITCH 


80012870 




067F 





70E0 




MDX 




A5V4 


LOOP 


80012880 




0680 





7001 




MOX 




A546 




80012890 




0681 





0000 


G544 


DC 




/OOOO 




80012900 










****************}i*************** ************* 


80012910 




DATE 




28FEB66 


29JUN66 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


41 5120 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



0682 





C07 


A 546 


LD 




N543 




80012920 




0683 


00 


442006b 7 




BSI 


L 


G546.Z 




80012930 




0685 





;ooc 




MDX 




J 546 




80012940 




0686 





7008 




MDX 




H546 




80012950 




0687 





OOOO 


G546 


DC 




/OOOO 




80012960 




0688 


00 


44000F65 




8SI 


L 


FOOO 


BSI BRNCHD-SHOULD NO 


80012970 




068A 





0125 


P546 


DC 




/0125 


♦ERROR 125 


80012980 




068B 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80012990 




0680 





70F4 




MDX 




A 546 


LOOP 


80013000 




06 8E 





7006 




MDX 




A548 




80013010 




068F 


00 


44000F65 


H546 


BSI 


L 


FOCO 


BSI SKPD-SHOULD NOT 


80013020 




0691 





0126 


R546 


DC 




/0126 


♦ERROR 126 


80013030 




0692 


00 


44000F7C 


J 546 


3SI 


L 


F005 


CHECK LOOP SWITCH 


80013040 




0694 





70ED 




MDX 




A 546 


LOOP 


80013050 










**♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


80013060 




C695 





C05A 


A 548 


LD 




N540 




80013070 




0696 


00 


441006A0 




BSI 


L 


G548,- 




80013080 




0698 





700B 




MDX 




H548 




80013090 




0699 


00 


f4000F65 




BSI 


L 


FOOO 


BSI SKP-ON COND TRUE 


80013100 




069B 





0127 


PS48 


DC 




/0127 


♦ERROR 12 7 


80013110 




06 9C 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80013120 




06<*E 





70F6 




MDX 




A 54 8 


LOOP 


80013130 




069F 


c 


7007 




MDX 




A54A 




80013140 




06A0 





OOOO 


G548 


DC 




/GOOO 




80013150 




06A1 


00 


44000F6 5 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULO NOT 


80013160 




06A3 





0128 


R548 


OC 




/0128 


♦ERROR 128 


80013170 




06A4 


00 


44000F7C 


H548 


BSI 


L 


F005 


CHECK LOOP SWITCH 


30013180 




06A6 





70EE 




MDX 




A 548 


LOGP 


80013190 










********************************** **• ********* 


80013200 




06A7 





C04A 


A54A 


LD 




N542 




80013210 




06A8 


00 


440806B2 




BSI 


L 


G54A t + 




80013220 




06AA 





7008 




MDX 




H54A 




80013230 




06AB 


n 


44000F65 




BSI 


L 


.-ooc 


BSI SKPO ON COND TRUE 


80C13240 




06AD 





0129 


P54A 


DC 




/0129 


♦ERROR 129 


80C13250 




06AE 


00 


44000F7C 




BSI 


l_ 


F005 


CHECK LOOP SWITCH 


80013260 




06B0 





70F6 




MDX 




A54A 


cOCP 


80C13270 




06B1 





7007 




MDX 




A 540 




80013280 




06B2 





OOOO 


G54A 


DC 




/OOOO 




80013290 




0683 


00 


44000F65 




BSI 


L 


FOOO 


BSI SRNCHO-SHDULO NOT 


80013300 




06B5 





012A 


R54A 


DC 




/012A 


♦ERROR 12A 


80C13310 




06B6 


00 


44000F7C 


H54A 


BSI 


L 


F005 


CHECK. LOOP SWITCH 


80013320 




06 B8 





70EE 




Mrx 




A54A 


LOO? 


80013330 










********************************************* 


80013340 




06B9 





C038 


A54C 


LD 




N542 




80013350 




06BA 


00 


440406C4 




BSI 


L 


G54C.E 




80013360 




06BC 





700B 




MDX 




H54C 




60013370 




0630 


00 


44000F65 




BSI 


A. 


FOOO 


BSI SKPD ON COND TRUE 


80013380 




06 BF 





012B 


P54C 


DC 




/012b 


♦ERROR 12B 


H0013390 




06C0 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80013400 




06C2 





70F6 




MDX 




A54C 


LOOP 


80013410 




06C3 





7007 




MDX 




A54E 




80013420 




06C4 





OOOO 


G54C 


DC 




/OOOO 




8001 3' 30 




06C5 


00 


44000F65 




BSI 


L 


FOOO 


BSI 3RNCHD-SH0ULD NOT 


80013440 




06C7 





012C 


R54C 


DC 




/012C 


♦ ERROR i2C 


80013450 




06C8 


00 


44000F7C 


H54C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80013460 




06 CA 





70EE 




MDX 




A54C 


LOOP 


80013470 










********************************************* 


80013480 




06CB 





2000 


A54E 


LDS 









80013490 




06CC 


00 


440206D6 




BSI 


L 


G54E.C 




80013500 




06CE 





700B 




MDX 




H54E 




30013510 




06CF 


00 


44000F65 




BSI 


L 


FOOO 


BSI SKPD ON COND TRUE 


80013520 




0601 





012D 


P54E 


DC 




/012D 


♦ERROR 12D 


80013530 




0602 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80013540 




06D4 





70F6 




MDX 




A54E 


LOOP 


80013550 




0605 





7007 




MDX 




A54F 




8001 3560 




06D6 





OOOO 


G54E 


OC 




/OOOO 




80013570 




06D7 


00 


44000F65 




BSI 


L 


FOOO 


BSI 3RNCH0- SHOULD NOT 


30013580 




0609 





012E 


R54E 


DC 




/012E 


♦ERROR 12E 


80013590 




DATE 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



060A 


00 


44000F7C 


H54E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80013600 




06 DC 





70EE 




MDX 




A 54c 


LOOP 


30013610 










******************************************:*** 


80013620 




06DD 





2000 


A54F 


LDS 









80013630 




06DE 


00 


440106E8 




3SI 


L 


G54F.0 




80013640 




06E0 





700B 




MOX 




H54F 




80013650 




06cl 


00 


44000F65 




BSI 


L 


FOOO 


BSI SKPD ON COND TRUE 


80013660 




06E3 





012F 


P54F 


DC 




/012F 


♦ERROR 12F 


80013670 




06E4 


00 


44000F7C 




BSI 


L 


FC05 


CHECK LOOP SWITCH 


80013680 




06E6 





70F6 




MDX 




A54F 


LOOP 


80013690 




06E7 





700C 




MDX 




A580 




80013700 




06E8 





0000 


G54F 


DC 




/OOOO 




80013710 




06E9 


00 


44000F65 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


80013720 




06EU 





0130 


R54F 


DC 




/0130 


♦ERROR 130 


8U013730 




06EC 


00 


44000F7C 


H54F 


BSI 


L 


* 005 


CHECK LOOP SWITCH 


80013740 




OoEE 





70EE 




MDX 




A54F 


LOOP 


60013750 




06EF 





7004 




MDX 




A580 


EXIT 


80013^60 




06F0 





8001 


N540 


DC 




/8001 




80013770 




06F1 





0000 


N541 


DC 




/OOOO 




80013780 




06F2 





0002 


N542 


DC 




/0002 




80013790 




06F3 





0000 


N543 

* 
* 
* 


DC 




/OOOO 

TEST 


OF LDD OPERATION 


80013800 
80013810 
80013S20 
80013830 










**tttM»u»- t*tt«ttt(t*t*(»t*»t*****»nttj»t 


80013840 




06F4 





C83B 


A580 


LDD 




N581 




80013850 




06F5 


00 


4C1806FA 




BSC 


L 


G580.+- 




80013860 




06F7 


00 


44000F65 




BSI 


L 


FOOO 


LDD-A REG INCORRECT 


80013870 




06F9 





0140 


P5 80 


DC 




/0140 


♦ ERROR 14-) 


80013880 




06FA 


00 


44000F7C 


G580 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80013890 




06FC 





70F7 




MDX 




A580 


LOOP 


80013900 




06F0 





18D0 




RTE 




16 




80013910 




06FE 


00 


4C180703 




BSC 


L 


G582.+- 




80013920 




700 


00 


44000T65 




BSI 


L 


FOOO 


LDD-a REG INCORRECT 


80013930 




0702 





0141 


P582 


DC 




/0141 


♦ERROR 141 


80013940 




0703 


00 


44000F7C 


G5 82 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80013950 




0705 





70EE 




MDX 




A580 


LOOP 


80013960 










********************************************* 


80013970 




0706 





C82B 


A584 


LDD 




N583 




80013980 




0707 





F028 




EOR 




N584 




80013990 




0708 


00 


4C18070D 




8SC 


L 


G534.+- 




80014000 




070A 


00 


44000F65 




BSI 


L 


FOOO 


LDD-A REG INCORRECT 


80014010 




070C 


T 


0142 


P584 


DC 




/0142 


♦ERROR 14 2 


80014020 




0700 


00 


44000F7C 


G5 84 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80014030 




70F 





70F6 




MDX 




A 584 


LOOP 


80014040 




0710 





18D0 




RTE 




16 




80014050 




0711 





F021 




EOR 




N584 




80014060 




0712 


00 


4C180717 




asc 


L 


G586.+- 




80014070 




0714 


00 


44000F65 




BSI 


L 


FOOO 


LDD-Q REG INCORRECT 


80014080 




0716 





0143 


P586 


DC 




/0143 


♦ERROR 143 


80014090 




0717 


00 


44000F7C 


G5C6 


BSI 


L 


FC05 


CHfCK LOOP SWITCH 


80014100 




0719 





70EC 




MDX 




A584 


LOOP 


80014110 










*************************** ****************** 


8C014120 




071A 





C816 


A588 


LDD 




N582 




80014130 




071B 


00 


4C180720 




PSC 


L 


G588t+- 




80014140 




0710 


00 


44000F65 




BSI 


L 


FOOO 


LDD ODD-A REG FAILED 


80014150 




071F 





0144 


P588 


DC 




/0144 


♦ERROR 144 


80014160 




0720 


00 


44000F7C 


G588 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80014170 




722 





70F7 




MDX 




A588 


LOOP 


80014180 




0723 





1800 




RTE 




16 




80014190 




0724 


00 


4C180729 




BSC 


L 


G58A,*- 




80014200 




0726 


00 


44000F65 




BSI 


L 


FOOO 


LDD-ODD-Q REG FAILED 


80014210 




0728 





0145 


P5 8A 


DC 




/0145 


ERROR 145 


80014220 




0729 


00 


44000F7C 


G c *A 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


80014230 




072B 





70EE 




MDX 




A588 


LOUP 


80014240 




072C 





7007 




MDX 




A5C0 


EXIT 


60014250 




072E 




0002 


N580 


BSS 


E 


2 




80014260 




0730 





0000 


N5 81 


DC 




/OOOO 




8001427C 




OATE 




28FEB66 


29JUN66 04N0V66 I5FEB67 
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0800-1 
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415120 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP CODES SECTION 



0731 





OOOO 


N582 


DC 




/OOOO 




8001*280 




0732 





FFFF 


N583 


DC 




/FFFF 




80014290 




0733 





rr-FF 


N584 

♦ 
* 
* 


DC 




/FFFF 

TEST 


OF STD OPERATION 


80014300 
80014310 
80014320 
80014330 










****************************** ****** ********* 


80014340 




0734 





C84D 


A5C0 


LDD 




N5C1 




00014350 




0735 





D850 




STD 




N5C5 




80014360 




0736 





C04F 




LD 




r:5C5 




80014370 




0737 


00 


4C18073C 




BSC 


L 


G5C0,+- 




80014380 




0739 


00 


44000F65 




BSI 


L 


FOOO 


STD-EA INCORRECT 


80014390 




073B 





0151 


P5C0 


DC 




/0151 


♦ERROR 151 


600! 4400 




073C 


00 


44000F7C 


G5C0 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80014410 




073E 





70F5 




MDX 




A5C0 


LOOP 


80014420 




073F 





C047 




LD 




N5C6 




80014430 




0740 


00 


4C 180745 




BSC 


L 


G5C2t»- 




80014440 




0742 


00 


44000F65 




esi 


L 


FOOO 


STD-EA+1 INCORRECT 


80014450 




0744 





01.52 


P5C2 


DC 




/0152 


♦ERROR 152 


80014460 




0745 


00 


44000F7C 


G5C2 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


80014470 




0747 





70EC 




MOX 




A5C0 


LOOP 


80014480 










********************************************* 


80014490 




748 





C03V 


A5C4 


LD 




N5C1 




P0014500 




0749 





D03C 




STO 




N5C5 




80014510 




074A 





D03C 




STC 




N5C6 




80014520 




074B 





C838 




LDD 




N5C3 




80014530 




074C 





0339 




STC 




N5C5 




80014540 




0740 





C038 




LD 




N5C5 




80014550 




074E 





F035 




EOR 




N5C3 




8001*560 




074F 


00 


4C180754 




BSC 


L 


G5C4,*- 




80014570 




0751 


00 


44000F65 




BS! 


L 


FOOO 


STD-EA INCOR'.ECT 


60014580 




0753 





0153 


P5C4 


DC 




/0153 


♦ERROR 15 3 


80014590 




0754 


00 


44000F7C 


G5C4 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80014600 




0756 


c 


70F1 




MDX 




A5C4 


LOOP 


80014610 




0757 





C02F 




LO 




N5C6 




80014620 




75 8 





F02B 




EOR 




NoC3 




80014630 




0759 


00 


4C18075E 




BSC 


L 


G5C6.+- 




80014640 




075B 


00 


4400C '65 




BSI 


L 


FOOO 


STD-EA*! INCORRECT 


80014650 




0"5D 





0154 


P5C6 


DC 




/0154 


♦ERROR 154 


80014660 




075E 


00 


44000F7C 


G5C6 


BSI 


L 


F005 


CHECK LOOP SWI fCH 


80014670 




760 





70E7 




MDX 




A5C4 


LOOP 


80014680 










********************************************* 


80014690 




0761 





C022 


A5C8 


LD 




N5C3 




80014700 




0762 





D023 




STO 




N5C5 




80014710 




0763 





D023 




STO 




N5C6 




80014720 




764 





D023 




STO 




N5C7 




80014730 




0765 





C81C 




LDD 




N5C1 




80014740 




0766 





D820 




STO 




N5C6 




80014750 




0767 





C01A 




LD 




N5C1 




80014760 




0768 





COIE 




LD 




N5C6 




80014770 




0769 


00 


4C18076E 




BSC 


L 


G5C8.+- 




80014780 




076B 


00 


44000F65 




BSI 


L 


FOOO 


STD-ODD-EA INCCRRECT 


80014790 




076D 





0155 


P5C8 


DC 




/0155 


*ERROR 155 


80014800 




76E 


00 


44000F7C 


G5C8 


BSI 


L 


F005 


CHECK LO " SWITCH 


80014810 




0770 





70F0 




MDX 




A5C8 


LOOP 


80014820 




0771 





C016 




LO 




N5C7 




80014830 




0772 





FOU 




eor 




N5C3 




80014840 




0773 


00 


4C180778 




esc 


L 


G5CA.+- 




80014850 




0775 


00 


44000Fo5 




BSI 


L 


FOOO 


STD-OOD-EA+1 LOADED 


80014660 




0777 





0156 


P5CA 


DC 




/0156 


♦ERROR 156 


80014870 




0778 


00 


44000F7C 


G5CA 


BSI 


L 


F005 


CHFCK LOOP SWITCH 


P0014860 




077A 





70E6 




MDX 




A5C8 


LOOP 


80014890 




077B 





C008 




LO 




N5C3 




8001 490C 




77C 





DOOA 




STO 




f*5C6 




80014910 




077D 





OOOA 




STO 




N5C7 




80014920 




077E 





700A 




MDX 




A 600 


EXIT 


80014930 




0780 




000 2 


N5C0 


BSS 


E 


2 




80014940 




0782 





OOOO 


N5C1 


DC 




/OOOO 




80014950 
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0783 





0000 


0784 





FFFF 


0785 





FFFF 


0786 





FFFF 


07C7 





FFFF 


0788 





FFFF 



0789 00 6^00078C 
078B 7003 
078C 00 44000F65 
078E 0161 
078F 00 44000F7C 

0791 70F7 

0792 00 66000795 
794 700 3 
0795 00 44000F65 

0797 0162 

0798 00 44000F7C 
079A 70F7 



079B 
079C 
079c 
079F 
07A1 
07A3 
07A4 00 
7A6 





00 



00 

00 





07A7 
07A8 
07A9 00 
07A6 
07AC 00 
07AE 00 
07B0 
07B1 
07B3 



00 




07B4 
785 
07B6 00 
07B8 
07B9 00 
07BB 00 
07BD 
07BE 00 
7C0 C 



07C1 

07C2 

07C3 00 

07C5 

07C6 00 

07C8 00 

07CA 

07CB 00 

07CD 



6100 

C5000806 

F06T 

4C1807A4 

44000F65 

0163 

440G0F7C 

70F4 

6200 

C05F 

C6000806 

F05A 

4C1807B1 

44000F65 

0164 

44000F7C 

70F3 

6300 

005 2 

C70C0806 

F04D 

4C1807BE 

44000F65 

0165 

44000F7C 

70F3 

61FF 

C045 

C5000806 

F03F 

4C1807CB 

44000F65 

0166 

44000F7C 

70F3 



07CE 62FF 
07CF C038 
07D0 00 C6000806 
0702 F032 
07D3 00 4C1807D8 



DC 


/onoo 


DC 


/FFFF 


DC 


/FFFF 


DC 


/FFFF 


DC 


/FFFF 


DC 


/FFFF 



TEST OF LDX OPERATION 



N5C2 
N5C3 
N5C4 
N5C5 
N5C6 
N5C7 

* 

********************************************* 

A600 LDX LI G600 
H600 

FOOO TAG REG BIT 7 FAILED 

/0161 *ERROR 161 

FT05 CHECK LOOP SWITCH 

A600 LOOP 

********************************************* 

A602 LDX L2 G602 
:<602 

FOOO TAG REG BIT 6 FAILED 

/0162 *ERROR 162 

F005 CHECK LOOP SWITCH 

A602 LOOP 



G600 
P600 
H600 



G602 
P602 
H602 



MDX 

BSI 

DC 

BSI 

MDX 



MOX 

BSI 

DC 

BSI 

MDX 



********************************************* 



A604 



P604 
G604 



LDX 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



1 
LI 

L 

L 





N601 

N601 

G604,< 

FOOO 

/C163 

F005 

A604 



IX I NOT LOADED 
♦ERROR 163 
CHECK LOOP SWITCH 
LOOP 



**********4**4*44**4 44 *********************** 



A606 



P606 
G606 



LDX 

LO 

LD 

EOR 

BSC 

BSI 

oc 

BSI 

MDX 



L2 

L 
L 





N603 

N601 

N601 

G606.4 

FOOO 

/0164 

F005 

A606 



IX 2 NOT LOADED 
♦ERROR 164 
CHECK LOOP SWITCH 
LOOP 



****** 4*S4**444444**4*********4**j *********** 



A608 



P608 
Gt>08 



LDX 

LD 

LD 

COR 

BSC 

BSI 

DC 

BSI 

MDX 



L3 





N603 

N601 

N601 

G608.+ 

FOOO 

/0165 

FC05 

A608 



IX 3 NOT LOADED 
♦ERROR 165 
CriECK LOOP SWITCH 
LOOP 



*************:******»******♦****************** 



A60A 



P60A 
G60A 



LDX 

LO 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



LI 

L 

L 



-1 

N603 

N601 

N600 

G60A.+- 

FOOO 

/0166 

F005 

A60A 



IX 1 NOT LOADED 
♦ERROR 166 
CHECK LOOP SWITCH 
LOOP 



********************************************* 



jOC 



LDX 

LD 

LD 

EOR 

BSC 



L2 



_ i 

N603 

N601 

N600 

G60C,*- 



DATE 

EC NO. 



28FEB66 29JUN66 04N0V66 I5FE367 
415120 4I5I75A 415233 4lb:?3B 



80014960 

80014970 

80014980 

80014990 

80015000 

80015010 

80015020 

80015030 

800? 5040 

80015050 

80015060 

80015070 

80015080 

80015090 

80015100 

80015110 

8001^12" 

80015130 

80015140 

80015150 

80015160 

80015170 

30015180 

80015190 

80015200 

80015210 

80015220 

80015230 

80015240 

80015250 

80015260 

80015270 

80015280 

80015290 

80015300 

80015310 

80015320 

80015330 

80015340 

80015350 

80015360 

30015370 

80015380 

80015390 

80015400 

80015410 

80015420 

80015430 

80015*40 

80015450 

30015460 

80015470 

80015480 

80015490 

80015500 

8C015510 

80015520 

80015530 

80015540 

80015550 

80015560 

80015570 

30015580 

80015590 

80015600 

80015610 

80015620 

80015630 



PROG ID 
PAGE 



08C0-1 
12 



0705 00 44000F65 




BSI 


L 


FOOO 


IX 2 NOT LOADED 


80015640 




07D7 0167 


P60C 


DC 




/0167 


♦ERROR 167 


80015650 




07D8 00 -4000F7C 


G60C 


BSI 


L 


F005 


CHECK LOGP SW'TCH 


80015660 




07DA 70F3 




MDX 




A60C 


LOOP 


80015670 






********************************************* 


80015680 




07DB 63FF 


A60E 


LDX 


3 


-1 




80C15690 




07DC C C023 




LD 




N603 




80015700 




07DD 00 C7000806 




LD 


L3 


N601 




80015710 




070F F02 5 




EOR 




N600 




80015720 




07E0 00 4C1807E5 




BSC 


L 


G60Et+- 




80015730 




07E2 00 44000F65 




BSI 


L 


FOOO 


IX 3 ;iOT LOADED 


80015740 




07E4 0168 


P60E 


DC 




/0168 


♦ERROg 168 


80015750 




07E5 00 44000F7C 


G60E 


BSI 


L 


F005 


CHECK LOOP SW(TCH 


b0015760 




07E7 70F3 




MDX 




A60E 


LOOP 


80015770 






********************************************* 


80015780 




07E8 00 65000001 


B600 


LOX 


LI 


1 




80015790 




07EA C01D 




LD 




N603 




80015800 




07EB 00 C5000806 




LD 


LI 


N601 




80015810 




07E0 F019 




EOR 




N602 




80015820 




07EE 00 4C1807F3 




BSC 


L 


J600.-+- 




80015830 




07F0 00 44000F65 




BSI 


L 


FOOO 


LONG FORM LDX-FAILEO 


80015840 




07P2 0169 


R600 


DC 




/0169 


♦ERROR 169 


80015850 




07F3 00 44000F7C 


J 600 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80015860 




07F5 70F2 




MOX 




3600 


LOOP 


80015870 






********************************************* 


80C15880 




07F6 00 67800808 


B602 


LDX 


13 


N603 




80015890 




07F8 C010 




LC 




N604 




80015900 




07F9 00 C7000806 




LD 


L3 


N601 




80015910 




7FD F009 




EOR 




N600 




80015920 




07FC 00 4C100801 




BSC 


i. 


J602.+- 




80015930 




07FE 00 44000F65 




BSI 


L 


FOOO 


INDIRECT LD I FAILED 


80015940 




0800 016A 


R602 


OC 




/016A 


♦ERROR 16A 


3C015950 




0801 00 44000F7C 


J602 


BSI 


L 


FG05 


CHECK LOOP SWITCH 


80015960 




0803 70F2 




MDX 




B602 


LOOP 


80015970 




0804 7006 




MDX 




A 640 


EXIT 


- 80015980 




0805 0805 


N600 


DC 




N600 




80015990 




0806 0806 


N601 


DC 




N601 




80016000 




0807 080T 


N602 


OC 




N602 




8001e>010 




v/808 FFFF 


N603 


DC 




/FFFF 




80016020 




0809 0001 


N604 


DC 




/0001 




80016030 




080A 0808 


N605 

* 


DC 




N603 




80016040 
80016050 






• 






TEST 


OF STX OPERATION 


80016060 






♦ 










80016070 






********************************************* 


80016080 




080B C06A 


A64C 


LD 




N644 




80016090 




080C D066 




STO 




N640 




80016100 




0800 COFF 


H640 


LD 




H640 




80016110 




080E 6864 




STX 




N640 




80016120 




080F FOFD 


K640 


EOR 




H640 




80016130 




0810 00 4C18C915 




BSC 


L 


G640t+- 




80016140 




0812 00 44000F65 




BSI 


L 


FOOO 


ACC GONE AFTER STX 


80016150 




0814 0348 




DC 




/348 


♦ ERROR 348 


80016160 




0815 C05D 


G640 


LD 




N640 




80016170 




0816 F05D 




EOR 




N642 




80016180 




0817 00 4C18081C 




BSC 


L 


G641.+- 




80016190 




0819 00 4'»00OF65 




BSI 


L 


FOOO 


I CTR NOT STORED 


80016200 




081B 0171 


Po40 


DC 




/0171 


♦ERROR 171 


80016210 




081C 00 44000F7C 


G641 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016220 




081E 70EC 




MDX 




A640 


LOOP 


80016230 






********************************************* 


80016240 




081F C056 


A642 


LD 




N644 




80016250 




0820 0052 




STO 




N640 




80016260 




0821 6100 




LDX 


1 







80016270 




0822 6950 




STX 


1 


N640 




80016280 




0823 C04F 




LD 




N640 




80016290 




0824 00 4C 180829 




BSC 


L 


G642,t- 




80016300 




0826 00 44000F65 




BSI 


L 


FOOO 


IX 1 NOT STORED 


80016310 




DATE 28FEB66 
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0828 0172 


P642 


DC 




/0172 


♦ERROR 172 


80016320 




0829 00 44000F7C 


G642 


BSI 


L 


FU05 


CHECK LOOP SWITCH 


80016330 




082B 70F3 




MDX 




A642 


LOOP 


80016340 






********************************************* 


80016350 




082C C049 


A 644 


LD 




N644 




80016360 




082D D045 




STO 




N640 




80016370 




082E 6200 




LDX 


2 







80016380 




082F 6A43 




STX 


2 


N640 




80016390 




0830 C042 




LD 




N640 




80016400 




0831 00 4C180836 




BSC 


L 


G644,*- 




80016410 




0833 00 '4000F65 




BSI 


L 


FOOO 


IX 2 NOT STORED 


80016420 




0835 0173 


P644 


DC 




/0173 


♦ERROR 173 


80016430 




0836 00 44000F7C 


G644 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016440 




0638 70F3 




MDX 




A 644 


LOOP 


80016450 






♦a*************************** .*************** 


80016460 




0839 C03C 


A646 


LD 




N644 




80016470 




083A D038 




STO 




N640 




80016480 




083B 6300 




LDX 


3 







80016490 




083C 6B36 




STX 


3 


N640 




80016500 




083D C035 




LD 




N640 




80016510 




083E 00 4C160843 




BSC 


L 


G646 t +- 




80016520 




0340 00 44000F65 




BSI 


L 


FOOO 


IX 3 NOT STOREO 


8C016530 




0842 0174 


P646 


DC 




/0174 


♦ERROR 174 


80016540 




0843 00 44000F7C 


J 646 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016550 




0845 70F3 




MDX 




A646 


LOOP 


80016560 






********************************* *********** 


80016570 




0846 C0?E 


A648 


LD 




N64 3 




80016580 




0847 D02B 




STO 




Nfc40 




80016590 




0848 61FF 




LOX 


1 


-1 




80016600 




0849 6929 




STX 


1 


N640 




80016610 




084A C028 




LD 




N640 




80016620 




084B F02A 




EOR 




N644 




80016630 




084C 00 4C180851 




BSC 


L 


Gfc48,+- 




80016640 




084E 00 44000F65 




BSI 


L 


FOOO 


IX 1 NOT STORED 


80016650 




0850 01 7 r . 


P648 


DC 




/0175 


*ERROR 175 


80016660 




0851 00 44000F7C 


G648 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016670 




0853 70F2 




MDX 




A648 


LOOP 


80016680 






********************************************* 


80016690 




0854 C020 


A64A 


LD 




N643 




80016700 




0855 001D 




STO 




N640 




80016710 




0856 62FF 




LDX 


2 


-1 




80016720 




0857 6A1B 




STX 


2 


N640 




80016730 




0C5" C01A 




LD 




N640 




80016740 




0859 F01C 




EOR 




N644 




800167C0 




085A 00 4C18085F 




BSC 


L 


G64A.+- 




80016760 




085C 00 44000F65 




BSI 


L 


FOOO 


IX 2 NOT STOFED 


80016770 




085E 0176 


P64A 


DC 




/0176 


♦ERROR 176 


80016780 




085F 00 44000F7C 


G64A 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016790 




0861 70F2 




MOX 




A 64 A 


LOOP 


80016800 






********************************************* 


80016810 




0862 C012 


A64C 


LD 




N643 




80016320 




0863 DOOF 




STO 




N640 




80016830 




0864 63FF 




LDX 


3 


-1 




80016840 




0865 6B0D 




STX 


3 


N640 




80016850 




0866 COOC 




LD 




N640 


■• 


80016860 




0867 FOOE 




EOR 




N644 




80016870 




0868 00 4C18086D 




BSC 


L 


G64C f +- 




80016880 




086A 00 44000F65 




BSI 


L 


FOOO 


IX 3 NOT STORED 


80016890 




086C 0177 


P64C 


DC 




/0177 


♦ERROR 177 


80016900 




0860 00 44000F7C 


G64C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80016910 




086F 70F2 




MDX 




A64C 


LOOP 


80016920 




0870 C004 




LD 




N643 




80016930 




0871 0001 




STO 




N640 




80016940 




0872 7004 




MDX 




A660 




80016950 




0873 0000 


N640 


DC 




/OOOO 




80016960 




0874 080F 


N642 


DC 




K640 




80016970 




0875 0000 


N643 


DC 




/OOOO 




80016980 




0876 FFFF 


N644 


DC 




/FFFF 




80016SS0 
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********************************************* 


3001 7GOO 




0877 6100 


A660 


LOX 


1 







8001 70 10 




0878 6200 




LDX 


2 







00017020 




0879 6300 




LDX 


3 







80017030 




087A 61FF 




LDX 


1 


-1 




80017040 




087B 6A44 




STX 


2 


N660 


CK FOR DISTRUCTION 


80017050 




087C C043 




LO 




N660 


OTHER INDEXES 


80017060 




087D 00 4C180882 




BSC 


L 


G660.+- 




80017070 




08TF 00 44000F65 




BSI 


L 


FOOO 


X2 CHANGEO 


80017080 




0881 0320 




oc 




/320 


* ERROR 320 


80017090 




0882 00 44000F7C 


G660 


6>I 


L 


FC05 




80017100 




0884 70F2 




MDX 




A660 




80017110 




0885 6B3A 




STX 


3 


N660 




J0017120 




0886 C039 




LD 




N660 




80017130 




0887 00 4C18088C 




BSC 


L 


G661.+- 




80017140 




0889 00 44000F65 




bs: 


L 


FOOO 


X3 CHANGED 


80017150 




088B 0321 




DC 




/321 


* ERROR 321 


80017160 




088C 00 44000F7C 


G661 


BSI 


L 


F005 




80017170 




088E 70E8 




MDX 




A660 




80017180 






*********x; 


It*** ****** **************** ********* 


80017190 




088F 6100 


A662 


LDX 


I 







80017200 




0890 6200 




LDX 


2 







80017210 




0b91 6300 




LDX 


3 







80017220 




0892 62FF 




LDX 


2 


-1 




80017230 




0893 692C 




STX 


1 


N660 




80017240 




0894 C02B 




LD 




N660 




80017250 




0895 00 4C18089A 




BSC 


L 


G662.+- 




80O17260 




0897 00 44000F65 




BSI 


L 


FOOO 




80017270 




0899 0322 




DC 




/322 


♦ ERROR 322 


80017280 




089A 00 44000F7C 


G662 


BSI 


L 


F005 




80017290 




089C 70F2 




MDX 




A662 




80017300 




0890 6B22 




STX 


3 


N660 




80C17310 




089E C021 




LD 




N660 




80017320 




089F 00 4C1808A4 




BSC 


L 


G663.+- 




80017330 




08A1 00 44000F65 




BSI 


L 


FOOO 




80017340 




C3A3 0323 




OC 




/32 3 


* ERROR 323 


80017350 




08A4 00 44000F7C 


G663 


BSI 


L 


F005 




80017360 




08A6 70E" 




MDX 




A662 




80017370 






********************************************* 


80017380 




08A7 6100 


A664 


LDX 


1 





CK DISTRUCTION OF 


80017390 




08A8 6200 




LDX 


2 





OTHER INDEXES 


B0017400 




08A9 6300 




LDX 


3 







80017410 




08AA 63FF 




LOX 


3 


-1 




80017420 




08AB 6914 




STX 


1 


N660 




80017430 




08AC C013 




LD 




N660 




80017440 




08AD 00 4C1808B2 




BSC 


L 


G664 t +- 




80017450 




08AF 00 44000F65 




BSI 


L 


FOOO 


XI CHANGED 


80017460 




08B1 0324 




bC 




.'32'. 


♦ ERROR 324 


80017470 




08B2 00 44000F7C 


G664 


BSI 


L 


FC03 




8001 748C 




08B4 70F2 




MOX 




A664 




80017490 




0835 6A0A 




STX 


2 


N660 




30017500 




08B6 C009 




LD 




N660 




80017510 




08B7 00 4C1808BC 




BSC 


L 


G665.+- 




8001.520 




0889 00 44000F65 




BSI 


L 


FOOO 


X2 CHA-T.ED 


80017530 




08BB 0325 




OC 




/325 


♦ ERROR 325 


80017540 




088C 00 44000F7C 


G665 


BSI 


L 


F005 




80017550 




08BE 70E8 




MOX 




A664 




80017560 




08BF 7001 




MDX 




A670 




80017570 




08C0 OOOO 


N660 


DC 









80017580 






********** 


*********************************** 


80017590 




08C1 6110 


A670 


LDX 


1 


16 




80017600 




08C2 C010 




LD 




N670 


LOAD ONE 


80017610 




08C3 00 4C1808CC 


G671 


BSC 


L 


G670.+- 




80017620 




C8C5 1001 


G672 


SLA 




1 




80017630 




08C6 71FF 




MDX 


1 


-1 




80017640 




08C7 70FB 




MDX 




G671 




80017650 




08C8 00 44000F7C 




BSI 


L 


F005 




80017660 




08CA 70F6 




MDX 




A670 




80017670 




OATE 28FEB66 


29JUN66 04N0V66 I3FEB67 




PP.OG ID 


0800-1 


EC NO. 415120 


4I5I75A 41523 


3 4I5233B 
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PART NO. 
PAGE 



2183266 
14A 



08CB 





7008 


08CC 


00 


44000F65 


08CE 





0350 


08CF 


00 


44000F7C 


0801 





70EF 


0302 





70F2 


0803 





0001 



G670 



MDX 




A680 


BSI 


L 


FOOO 


DC 




/350 


BSI 


L 


F005 


MDX 




A670 


MDX 




G672 


DC 




1 



CRONG DECOOE OF ZEPO ACC 
» ERROR 350 



N670 

* 
* 
********** **************************** ******* 



TEST OF ADD OPERATION 



0804 2002 


A680 


LDS 




2 




08D5 C06E 




LD 




N680 




0806 806E 




A 




N681 




08D7 00 4C0108DA 




BSC 


L 


G680.0 




08D9 7003 




MDX 




H680 




08DA 00 44000F65 


G680 


BSI 


L 


FGOO 


OVERFLOW IS ON 


03DC 0181 


P680 


PC 




/eisi 


♦ERROR 181 


08DD 00 44000F7C 


H680 


BSI 


L 


F005 


CHECK LOOP SWITCH 


080F 70F4 




MDX 




A680 


LOOP 


08E0 F063 




EOR 




N660 




08E1 00 4C1808E6 




BSC 


L 


G682.+- 




03E3 00 44000F65 




BSI 


L 


FOOO 


ADD AND 1 FAILED 


08E5 0182 


P682 


DC 




/0182 


♦ERROR 132 


03E6 00 44000F7C 


G682 


BSI 


L 


F005 


CHECK LOOP SWITCH 


08E8 70EB 




MDX 




A660 


LOOP 




*******************************************<* 


08E9 2000 


A684 


LDS 









03EA C059 




LD 




N680 




08EB 805A 




A 




N682 




08EC 00 4C0208F1 




BSC 


L 


G684.C 




OHEE 00 44000F65 




BSI 


L 


FOOO 


CARRY NOT ON 


08F0 0183 


P684 


DC 




/C183 


♦ESROR 133 


08F1 00 44000F7C 


G684 


BSI 


L 


FC05 


CHEC;C LOOP SWITCH 


08F3 70F5 




MDX 




A684 


LOOP 


03F4 00 4C1B08F9 




BSC 


L 


Gt86i+- 




08F6 00 44000F65 




BSI 


L 


FOOO 


ADD 0001+FFFF FAILED 


08F8 0184 


P686 


DC 




/0184 


♦ERROR 134 


08F9 00 44000F7C 


G686 


BSI 


L 


FC05 


CHECK LOOP SWITCH 


08FB 70ED 




MDX 




A684 


LOOP 




********************************************* 


06FC C 2000 


A688 


LDS 









03FD C046 




LD 




N680 




03FE 8045 




A 




N680 




08FF 00 4C020904 




BSC 


L 


G688.C 




0901 00 44000F65 




BSI 


L 


FOOO 


CARRY NOT ON 


0903 0185 


P6 88 


DC 




/01b5 


♦ERROR 185 


0904 00 44000F7C 


G688 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0<>06 70F5 




MDX 




A683 


LOOP 


0907 F043 




EOR 




N687 




0908 00 4C18090D 




BSC 


L 


G68A.+- 




090A 00 44000F65 




BSI 


L 


FOOO 


ADD-FFFF+FFFF FAILED 


090C 0186 


P68A 


DC 




/0186 


♦ERROR 186 


0900 00 44000P7C 


Gfc8A 


esi 


I 


F005 


CHECK LOUP SWITCH 


090F 70EC 




MDX 




A688 


LOOP 


0910 2000 


A68C 


LOS 









0911 C035 




LD 




N683 




0912 8034 




A 




N683 




0913 00 4C010913 




BSC 


L 


G68C0 




0915 00 44000F65 




BS! 


L 


FOOO 


OVERFLOW NOT ON 


0917 0187 


P68C 


DC 




/0187 


♦ERROR 187 


0918 00 44000F7C 


G68C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


091A 70F5 




MOX 




A68C 


LOOP 


0918 F02C 




EOR 




N684 




091C 00 4C180921 




BSC 


L 


G68E,*- 




091E 00 44000F65 




BSI 


L 


FOOO 


ADD 4000* -000 FAILED 


0920 0188 


P68E 


DC 




/018S 


♦ERROR 188 


0921 00 44000F7C 


G68E 


BSI 


L 


F005 


CHECK LCOP SWITCH 


DATE 28FEB66 


29JUN66 04N0V66 I5FEB67 




EC NO. 415120 


4I5I75A 41 


5233 4I5233B 





80017680 

80017690 

80017700 

80017710 

80017720 

80017730 

80017740 

80017750 

80017760 

80017770 

80017780 

80017790 

80017800 

80017810 

EG017820 

80017830 

80017840 

80017850 

80017860 

80017870 

80017880 

80017890 

80017900 

80017910 

80017920 

80017930 

80017940 

80017950 

80017960 

80017970 

80017980 

80017990 

80018000 

80018010 

80018020 

800180 30 

80018040 

80018050 

80018060 

80016070 

8O018080 

80018090 

80018100 

80018110 

80018120 

8001813G 

80018140 

80018150 

80018160 

80C18170 

80018180 

80018190 

80018200 

80018210 

80018220 

80018230 

80018240 

80018250 

80018260 

30018270 

80018280 

80018290 

80018300 

80018310 

80018320 

80018330 

8001834C 

80018350 



PROG ID 
PAGE 



0800- 1 
14 



092 3 70EC 




MDX 




A68C 


LOOP 


80018360 






********************************************* 


80018370 




0924 2000 


B680 


LDS 









80018380 




0925 C022 




LD 




N684 




60018390 




0926 8021 




A 




N684 




8001 8400 




0927 2G24 




STS 




N688 




80018410 




0928 00 4C18092D 




BSC 


L 


J680.+- 




80018420 




092A 00 44000F65 




BSI 


L 


FOOO 


ADD 3000*8000 FAILED 


80018430 




092C 0189 


R680 


DC 




/ n 189 


♦ERROR 189 


80018440 




092D 00 44000F7C 


J 680 


BSI 


L 


F005 


CHECK 100P SWITCH 


80018450 




092F 70F4 




MDX 




B680 


LOOP 


80018460 




0930 C01B 




LD 




N688 




8001.8470 




0931 F018 




EOR 




N686 




80018480 




0932 00 4C 180940 




BSC 


L 


J682i+- 




80018490 




0934 00 4C04093D 




BSC 


L 


r.682,E 




80018500 




0936 00 44000F65 




BSI 


L 


FCOO 


OVERFLOW NOT ON 


80018510 




0938 018A 


R682 


DC 




/018A 


♦ERROR 18A 


80018520 




0939 00 44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80018530 




093B 70E8 




MOX 




8680 


LOOP 


30018540 




093C 7010 




MDX 




A6C0 




80018550 




093P 00 44000F65 


K682 


BSI 


L 


FOOO 


CARRY NOT ON 


80018560 




093F 018b 


S682 


DC 




/013B 


♦ERROR 18 B 


80018570 




0940 00 44000F7C 


J682 


BSI 


1. 


F005 


CHECK LOOP SWITCH 


80018580 




0942 70E1 




hPX 




8680 


LOOP 


80018590 




0943 7009 




MDX 




A6C0 


EXIT 


80018600 




0944 FFFF 


N680 


DC 




/FFFF 




80018610 




0945 0000 


N681 


DC 




/OOOO 




80018620 




0946 0001 


N682 


DC 




/0001 




80018630 




0947 4000 


N683 


DC 




/4000 




80018640 




0948 8000 


N684 


DC 




/8000 




80018650 




0949 0000 


N685 


DC 




/COOO 




80018660 




094A 0003 


686 


DC 




/0003 




80018670 




094B FFFE 


N687 


DC 




/rFFE 




80018680 




094C 0000 


N688 

* 


DC 




/OOOO 




80018690 
80018700 






* 






INOEXING re ST 


80018710 






• 










80013720 






************* 


******************************** 


80018730 




0940 61FC 


A6C0 


LDX 


1 


-4 




80018740 




094E 00 C50009C3 




LO 


LI 


N6C4 




80018750 




0950 F06E 




EOR 




N6C0 




80018760 




0951 00 4' - .20095F 




BSC 


L 


H6CO t Z 




80018770 




0953 6974 




STX 


I 


N6 r .9 




80016780 




0954 C073 




LD 




N6C9 




8001 8700 




0955 F073 




EOR 




N6CA 




80018800 




0956 00 4C180962 




BSC 


L 


G6C0.+- 




80013810 




0958 00 44000F65 




BSI 


L 


FOOO 


IX 1 LOADED WRONG 


80018820 




095A 0191 


P6C0 


DC 




/0191 


♦ERROR 191 


80018830 




095B 00 44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80018840 




095D 70EF 




MDX 




A6C0 


LOOP 


80019850 




095E 7006 




MDX 




A6C2 




8001 8e60 




095F 00 44000F65 


H6C0 


BSI 


L 


FOOO 


WRONG LOCATION 


8001 887u 




0961 0192 


R6C0 


OC 




/0192 


♦ ERROR 19": 


80018880 




0962 00 44000F7C 


G6C0 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80018890 




0964 70E8 




MDX 




A6C0 


LOOP 


80016900 






********************************************* 


30018910 




0965 62C4 


A6C2 


LDX 


2 


4 




80018920 




0966 00 C60009C3 




LO 


L2 


N6C4 




80018930 




0968 F05E 




EOR 




N6C8 




80018940 




0969 00 4C200977 




BSC 


L 


K6C2.Z 




80018950 




096B 6A5C 




STX 


2 


N6C9 




80018960 




096C C05B 




LD 




N6C9 




80018970 




096D F05C 




EOR 




NSCB 




80018980 




096E 00 4C18097A 




BSC 


L 


G6C2.+- 




80018990 




0970 00 44000F65 




BSI 


L 


FOOO 


IX 2 LOADED WRONG 


80019000 




0972 0193 


P6C2 


DC 




/0193 


♦ERROR 193 


80019010 




0973 00 44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80019020 




0975 70EF 




MDX 




A6C2 


LOOP 


80019030 




OATE 28FEB66 


29JUN66 04N0V66 1 5FEB67 




PROG ID 


0800-1 


EC NO. 4J5I20 


4I5I75A 415233 4I?"33B 




PAGE 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP CODES SECTION 



0976 





7006 




MDX 




A6C4 




80019040 




0977 


00 


44000F65 


H6C2 


BSI 


L 


FOOO 


WRONG LOCATION 


80019050 




0979 





0194 


R6C2 


DC 




/0194 


♦ERROR 194 


80019060 




097A 


00 


44000F7C 


G6C2 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80019070 




097C 





7068 




MDX 




A6C2 


LOOP 


80019080 










********************************************* 


80019090 




097D 





6300 


A6C4 


LDX 


3 







80019100 




097F 


00 


C70009C3 




LD 


L3 


N6C4 




80019110 




0980 





F042 




EOR 




N6C4 




80019120 




0981 


00 


4C20098B 




8SC 


L 


H6C4.Z 




80019130 




0983 





6344 




STX 


3 


N6C9 




8C019140 




0984 





C043 




LO 




N6C9 




80019150 




0985 


00 


4C18098E 




BSC 


L 


G6C4.+- 




80019160 




0937 


00 


44000F65 




BSI 


L 


FOOO 


IX 3 LOADED WRONG 


80019170 




0989 





0195 


P6C4 


OC 




/0195 


♦ERROR 195 


80019180 




098A 





7003 




MDX 




G6C4 




80019190 




098B 


00 


44000F65 


H6C4 


BSI 


L 


FOOO 


WRONG LOCATION 


8001920O 




098D 





0196 


R6C4 


OC 




/0196 


♦ERROR 196 


80019210 




098E 


00 


44000F7C 


G6C4 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80019220 




0990 





70EC 




MDX 




A6C4 


LOOP 


80019230 










********** ********** ** ************ ***** ****** 


80019240 




0991 





6301 


A6C6 


LDX 


3 


1 




80019250 




0992 


00 


C70009C3 




LD 


L3 


N6C4 




90019260 




0994 





F02F 




EOR 




N6C5 




80019270 




0995 


00 


4C2009AO 




BSC 


L 


H6C6tZ 




80019280 




0997 





6830 




STX 


3 


N6C9 




80019290 




0998 





CO?? 




LD 




N6C9 




80019300 




0999 





F032 




EOR 




N6CD 




80019310 




099A 


00 


4C1809A3 




BSC 


L 


G6C6.+- 




80019320 




099C 


00 


44000F65 




BSI 


L 


FOOO 


IX 3 LOADED WRONG 


80019330 




099E 





0197 


P6C6 


DC 




/0197 


♦ERROR 19 7 


80019340 




099F 





7003 




MDX 




G6C6 




80019350 




09AO 


00 


44000F65 


H6C6 


BSI 


L 


FOOO 


WRONG LOCATION 


80019360 




09A2 





0198 


R6C6 


OC 




/0198 


♦cRROR 198 


80019370 




09A3 


00 


4400CF7C 


G6C6 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80019380 




09A5 





70EB 




MDX 




A6C6 


LOOP 


80019390 










********************************************* 


80019400 




09A6 





63FF 


A6CP 


LDX 


3 


-1 




80019410 




09A7 


00 


C78009CE 




LD 


13 


N6CF 




80019420 




09A9 





F019 




EOR 




N6C4 




80019430 




09AA 


00 


4C2009B8 




BSC 


L 


H6C8.Z 




80019440 




C9AC 





6B1B 




STX 


3 


N6C9 




S0019450 




09*r 





C01A 




LD 




N6C9 




80019460 




09AE 





F01F 




EOR 




NtCF 




8001 9470 




09AF 


00 


4C1809BB 




BSC 


L 


G6C8.+- 




80019480 




09B1 


00 


44000F65 




BSI 


L 


FOOO 


IX 3-LOADED W30NG 


80019490 




09B3 





0199 


P6C8 


OC 




/0199 


♦ERROR 199 


80019500 




09B4 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80019510 




09B6 





70EF 




MDX 




AtC 8 


LOOP 


80019520 




09B7 





7003 




MOX 




G6C8 




80019530 




0988 


00 


44000F65 


H6C8 


BSI 


L 


FOOO 


V^ONG LOCATION 


80019540 




09BA 





019A 


R6C8 


DC 




/019A 


♦ERROR 19A 


80019550 




09BB 


00 


44000F7C 


G6C8 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80019560 




09BD 





70E8 




MDX 




A6C8 




80019570 




09BE 





7011 




MDX 




A600 




80019580 




09BF 





09 BF 


N6C0 


DC 




N6C0 




80019590 




09C0 





09C0 


N6C1 


DC 




N6C1 




80019600 




09C1 





09C1 


N6C2 


DC 




N6C2 




80019610 




09C2 





09C2 


N6C3 


DC 




N6C3 




80019620 




09C3 





09C3 


N6C4 


DC 




N6C4 




80019630 




09C4 





09C4 


N6C5 


DC 




N6C5 




80019640 




09C5 





09C5 


N6C6 


DC 




N6C6 




80019650 




09C6 





09C6 


N6C7 


OC 




N6C7 




80019660 




09C7 





09C7 


: SC8 


DC 




N6C8 




80019670 




09C8 





0000 


N6C9 


DC 




/OOOO 




80019680 




09C9 





FFFC 


N6CA 


DC 




/FFFC 




80019690 




09CA 





0004 


N6CB 


DC 




/0004 




80019700 




09CB 





0000 


N6CC 


DC 




/OOOO 




800197iy 




DATE 




28FEE66 


29JUN66 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


415120 


4I5I75A 415232 


i 4I5233B 
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09CC 





0001 


N6CD 


DC 




/0001 




80019720 




09CD 





09C3 


N6CE 


DC 




N6C4 




80019730 




09CE 





C FFF 


N6CF 


DC 




/FFFF 




80019740 




09CF 





70D6 




MOX 




A6C8 


LOOP 


80019750 










********************************************* 


80019760 




09D0 


00 


650009CC 


A600 


LDX 


LI 


N6C1 




80019770 




0902 





C1FF 




LD 


1 


-1 


SHORT FORM INDEXING 


80019780 




09C3 





FOEB 




EOR 




N6C0 




80019790 




09D4 


00 


4C1809D9 




BSC 


L 


H600t+- 




80019SOO 




0906 


00 


44000F65 




BSI 


L 


FOOO 




80019810 




0908 





0330 




DC 




/330 


♦ ERROR 330 


80019820 




09D9 


00 


44000F7C 


H6D0 


6Si 


L 


F005 




80019830 




09DB 





70F4 




MDX 




A6D0 




80019840 










********************************************* 


800L9850 




090C 


00 


66000 9C0 


A 602 


LDX 


L2 


HhCl 




80019860 




09DE 





C201 




LO 


2 


I 




80019870 




09DF 





F0E1 




EOR 




RI6C2 




80019880 




09EO 


00 


4C1809E5 




BSC 


L 


H602,*- 




80019890 




09E2 


00 


V4000F6 5 




BSI 


L 


FOOO 




80019900 




09E4 





0331 




DC 




/331 


♦ ERROR 331 


80019910 




09E5 


00 


44000F7C 


H6D2 


BSI 


L 


F005 




80019920 




09E7 





70F4 




MDX 




A6D2 




80019930 










********************************************* 


80019940 




09E8 


00 


670009CO 


A6D3 


LDX 


L3 


N6CI 




80019950 




09EA 





C300 




LD 


3 







80019960 




09EB 





F0D4 




EOR 




N6C1 




80019970 




09EC 


00 


4C1809F1 




BSC 


L 


H6D3t+- 




80019980 




09EE 


00 


44000F65 




BSI 


L 


FOOO 




80019«J90 




09F0 





0332 




DC 




/332 


♦ FKROR 332 


80020000 




09FI 


00 


44OG0F7C 


H6D3 


BSI 


L 


F005 




80020010 




09F3 





70F4 




MDX 




A6D3 




80020020 










**************************** *** ************** 


8002CO3O 




09F4 





6102 


A6D5 


LDX 


1 


2 




80020040 




09F5 


■J 


C0D6 




LD 




N6CD 




80020050 




09F6 





1101 




SLA 


1 


I 




80020060 




09?7 





F0D2 




EOR 




N6CB 




80020070 




09F8 


00 


4C1609FD 




BSC 


L 


H6D5.+- 




80020080 




09FA 


00 


440' ">F6 5 




BSI 


L 


FOOO 


INOFXEO SLA FAILED 


80020090 




C9FC 





0340 




OC 




/340 


♦ ERROR 340 


80020100 




09FD 


00 


44000F7C 


H6D5 


BSI 


L 


F005 




80020110 




09FF 





70F4 




MDX 




A6D5 




80020120 










********************************************* 


80020130 




OAOO 





6202 


A6D6 


LDX 


2 


2 




80020140 




0A01 





coce 




LD 




N5CB 




80020150 




0A02 





1A01 




SRA 


2 


1 




80020160 




0A03 





FOCo 




SOR 




N6C0 




80020170 




0A04 


00 


4C160A09 




BSC 


L 


H606.+- 




80020180 




OA06 


00 


44000F65 




BSI 


L 


FOOO 


INDEXED SRA FAIL. 3 


80020190 




0A08 





0341 




DC 




/341 


♦ ERROR 341 


80020200 




0A09 


00 


44000F7C 


H6D6 


851 


L 


F005 




80020210 




OAOB 





70F4 




MOX 




A 606 




80020220 










********************************************* 


80020230 










* 










80020240 










* 






TEST 


INDEXED ~'SC 


80020250 










* 










80020260 




OAOC 





6301 


A6F0 


LDX 


3 


1 




80020270 




OAOO 





COOE 




LO 




N6F1 




80020280 




OAOE 


00 


4F000A11 




BSC 


L3 


N6F0 




80020290 




0A10 





30B4 




DC 




/3084 


INDEXED BSC FAILED 


80020300 




0A11 





30B4 


N6F0 


DC 




/30B4 


INDEXED BSC FAILEO 


80020310 




0A12 





F009 




EOR 




N6FI 


Cn FOR DISTROYED ACC 


80020320 




0A13 


00 


4C180A18 




BSC 


L 


H6FQ,*- 




80020330 




0A15 


00 


44000F65 




BSI 


L 


FOOO 


ACC DISTROYEC 


80020340 




0A17 





0345 




DC 




/345 


♦ ERROR 345 


80020350 




0A18 


00 


44000F7C 


H6F0 


BSI 


L 


F005 




80020360 




0A1A 





70F1 




MDX 




A6F0 




8002 0370 




0A1B 





7001 




MOX 




A6F1 




80020380 




0A1C 





0A1C 


N6F1 


DC 




N6F1 




80020390 




DATE 




28FEB66 


29JUN66 04N0V66 t^FEB67 




PROG 10 


0800-1 


EC NO. 


4I5I2C 


4I5I75A 415233 4I5233B 




PAGE 


15A 



IBM MAINTENANCE OIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 
PAGE 



2183266 
16 
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OP COOES SECTION 









#*#**********************■******♦************* 


80020400 




0A10 





6201 


A6F1 


LDX 


2 


1 




80020410 




0A1E 


00 


4E800A21 




CSC 


12 


N6F2 




80020420 




0A20 





7005 




MDX 




H6F1 


BSC FAILED 


80020430 




0A21 





7004 


N6F2 


MDX 




H6F1 


BSC FAILEO 


80020440 




OA22 





0A2 5 




DC 




N6F3 




80020450 




0A23 





7002 




MDX 




H6F1 


BSC FAILED 


80020460 




0A24 





7001 




MDX 




H6F1 


BSC FAILED 


80020470 




0A25 





70C3 


N6F3 


MOX 




H6F2 




80020480 




0A26 


00 


44000F65 


H6F1 


BSI 


L 


FOOO 




8002 0490 




0A23 





0346 




OC 




/346 


* ERROR 346 


80020500 




0A29 


00 


440C0F7C 


H6F2 


BSI 


L 


F005 




80020510 




0A2B 





70F1 




MDX 




A6F1 




80020520 










********************************************* 


30020530 










* 










800205'rO 










* 






TEST 


OF SUBTRACT OPERATICN 


80020550 










* 










80020560 










******* ************************************** 


80020570 




0A2C 





2000 


A700 


LDS 









80020530 




OA20 





C066 




LD 




N700 




80020590 




0A2E 





9066 




S 




N701 




80020600 




0A2F 





2366 




STS 




N702 




80020610 




0A30 





F066 




EOR 




N703 




80020620 




0A31 


00 


4C180A36 




BSC 


L 


G700.+- 




80020630 




0A33 


CO 


44000 c 65 




BSI 


L 


FOOO 


0001 MINUS 0000 FAIL 


80020640 




0A35 





0201 


PTOO 


OC 




/0201 


♦ERROR 201 


80020650 




0A36 


00 


44000F7C 


G700 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80020660 




0A38 





70F3 




MDX 




A700 


LOOP 


80020670 




0A39 





CO 5 P. 




LD 




N702 




80020680 




0A3A 





F05D 




COR 




N704 




80020690 




0A3B 


uo 


4C180A40 




BSC 


L 


G702,+- 




80020700 




0A30 


00 


44000F65 




BSI 


L 


FOOO 


CAPRV NOT ON 


80020710 




0A3F 





0202 


P702 


DC 




/0202 


♦EfcROR 202 


80020720 




0A40 


00 


44000F7C 


G702 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80020730 




0A42 





70E9 




MDX 




A700 


LOCP 


80020740 










********************************************* 


80020750 




0A43 





2000 


A 704 


LDS 









80020760 




0A44 





C04F 




LD 




N700 




80020770 




0A45 





9051 




S 




N703 




80020780 




0A46 





284F 




STS 




N702 




80020790 




0A47 


r 


F04D 




EOR 




N701 




8C020800 




0A48 


00 


4C180A4D 




BSC 


L 


G704.+- 




80020810 




0A4A 


00 


44C00F65 




BSI 


L 


FCOO 


FFFF MINUS 0000 FAIL 


80020820 




0A4C 





0203 


P704 


DC 




/0203 


♦ERSOR 203 


80020830 




0A4D 


00 


44000F7C 


G704 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80020840 




0A4F 





70F3 




MDX 




A 704 


LOOP 


80020850 




0A50 





C04 5 




LD 




N702 




80020860 




0A51 





F046 




EOR 




N704 




80020870 




0A52 


00 


4C180A57 




BSC 


L 


G706,+- 




80C20880 




0A54 


oc 


44000F65 




BSI 


L 


FOOO 


CARRY NOT SET 


80020890 




OA56 





0204 


P706 


DC 




/0204 


♦ERROR 204 


80020900 




OA57 


00 


44000F7C 


G706 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80020910 




0A59 





70E9 




MCX 




A 704 


LOOP 


80020920 










********************************************* 


80020930 




0A5A 





2000 


A708 


LDS 









80020940 




0A5B 





C030 




LD 




N705 




80020950 




0A5C 





9038 




S 




N701 




80020960 




0A50 





2838 




STS 




N702 




80020970 




0A5E 





F03C 




EOR 




N707 




80020980 




0A5F 


00 


4C180A64 




BSC 


L 


G708.+- 




80020990 




0A61 


00 


44000F65 




BSI 


L 


FOOO 


0001 MINUS 8000 FAIL 


80021000 




0A63 





0205 


P7 3 


DC 




/0205 


♦ERROR 205 


80021010 




0A64 


00 


44000F7C 


G708 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80021020 




0A66 





70F3 




MDX 




A 708 


LOOP 


80021030 




0A67 





C02E 




LO 




N702 




80021040 




0A68 





F02C 




EOR 




N701 




80021050 




0A69 


00 


4C180A6E 




BSC 


L 


G70A.+- 




80021060 




0A6B 


00 


44000F65 




BSI 


L 


FOOO 


OVERFLOW NOT SET 


80021070 




OATE 




28FEB66 


29.JUN66 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


41 5120 


4I5I75A 4I< 


*233 4I5233B 
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0A6D 





oro6 


P70A 


DC 




/0206 


♦ERROR 206 


80021080 




0A6E 


00 


44000F7C 


G70A 


BSI 


L 


F005 


CHECK LOOP SWI ,XH 


8002 109O 




0A70 





70E9 




MDX 




A708 


LOOP 


80021100 










********************************************* 


80021110 




0A71 





2000 


A70C 


LDS 









8002 1120 




0A72 





C021 




LD 




N700 




80021130 




0A73 





9025 




S 




N705 




80021140 




0A74 





2821 




STS 




N702 




80021150 




0A75 





F023 




EOR 




N705 




80021160 




0A76 


00 


4C180A7B 




BSC 


L 


G70C+- 




80021170 




0A78 


00 


44000F65 




BSI 


L 


FOOO 


8000 MINUS OOOC FAIL 


800*1180 




0A7A 





0207 


P70C 


OC 




/0207 


♦ERROR 207 


80021190 




0A7B 


00 


44000F7C 


G70C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80021200 




0A7D 





70F3 




MDX 




A70C 


LOOP 


80021210 




0A7E 





C017 




LD 




N702 




80021220 




0A7F 





F01A 




EOR 




N706 




80021230 




0A80 


00 


4C180A90 




BSC 


L 


G70Et+- 




80021240 




0A82 





CO 13 




LD 




N702 




8002 1250 




0A83 





£011 




AND 




N701 




80021260 




0A84 


00 


4C200A8D 




BSC 


L 


J70E.2 




80021270 




0A86 


00 


4400GF65 


H70E 


BSI 


L 


FOOO 


OVERFLOW NOT ON 


80021280 




0A88 





0208 


P70E 


DC 




/0208 


♦ERROR 208 


80021290 




0A89 


00 


44000F7C 




3S1 


L 


F005 


CHECK LOOP SWITCH 


80021300 




0A8B 





70E5 




MDX 




A70C 


LOOP 


80021310 




0A8C 





7C0F 




MDX 




A 740 




80021320 




0A80 


00 


44000F65 


J70E 


BSI 


L 


FOOO 


CARRY NOT ON 


80021330 




0A8F 


n 


0209 


R70E 


DC 




/0209 


♦ERROR 209 


80021340 




OA90 


00 


44000P7C 


G70E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80021350 




0A92 


c 


70DE 




MDX 




A70C 


LOOP 


8002 1360 




0A93 





7008 




MDX 




A740 


EXIT 


80OU37O 




0A94 





0000 


.700 


DC 




/OOOO 




80021380 




0A95 





0001 


N701 


DC 




/OOOl 




80021390 




0A96 





0000 


N702 


DC 




/OOOO 




8002 140Q 




0A97 





FFFF 


N703 


DC 




/FFFF 




8002 1410 




0A98 





0002 


N704 


OC 




/0002 




80021420 




0A99 





8000 


N705 


OC 




/8000 




80021430 




OA-A 





0003 


N7 06 


OC 




/0003 




80021440 




0A9B 





7FFF 


N707 

♦ 
♦ 
* 


OC 




/7FFF 

TEST 


OF AOD DOUBLE 


80021450 
80021460 
80021470 
80021480 










********************************************* 


80021490 




0A9C 





2000 


A740 


LDS 









8002 1500 




0A9D 


00 


CC000366 




LDO 


L 


N742 




80021510 




0A9F 


00 


8C000868 




AD 


L 


N744 




80021520 




OAA). 


00 


2C000B62 




STS 


L 


N740 




80021530 




0AA3 


00 


F4000866 




EOR 


L 


N742 




8002 1540 




0AA5 


00 


4C180AAA 




BSC 


L 


G740.+- 




80021550 




0AA7 


00 


44000F65 




BSI 


L 


FOOO 


AD OOOO+FFFF A FAILE 


80021560 




0AA9 





0211 


P740 


DC 




/0211 


♦ERROR 211 


80021570 




OAAA 


00 


44000F7C 


G740 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80021580 




OAAC 





70EF 




MDX 




A 740 


LOOP 


80021590 




OAAO 





1800 




RIE 




16 




80021600 




OAAE 


00 


F4000B66 




EOR 


L 


N742 




80021610 




OABO 


00 


4C180AB5 




BSC 


L 


G742.+- 




80021620 




0A82 


00 


44000F65 




BSI 


L 


FOOO 


AD OOOO+FFFF FAILED 


80021630 




0AB4 





0212 


P742 


DC 




/0212 


♦ ERkCl. 212 


80021640 




0AB5 


00 


44000F7C 


G742 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80C21650 




0AB7 





70E4 




MDX 




A 740 


LOOP 


80021660 




0AB8 


00 


C4000B62 




LD 


L 


N740 




80021670 




OABA 


00 


4C 180 AC 8 




BSC 


L 


G744.+- 




80021680 




OABC 


00 


4C040AC5 




BSC 


L 


H~44,E 




80021690 




0A8E 


00 


44000F65 




BSI 


L 


FOOO 


CARRY ON 


80021700 




OACO 





0213 


P744 


DC 




/0213 


♦ERROR 213 


80021710 




0AC1 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80021720 




0AC3 





70D8 




MDX 




A 740 


LOOP 


80021730 




0AC4 





7003 




MOX 




G744 




80021740 




0AC5 


00 


44000F65 


H744 


BSI 


L 


FOOO 


OVFLO ON 


80021750 




OATE 




28FEB66 


29JUN66 04NOV66 I5FEB67 
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0AC7 0214 
0AC8 00 44000F7C 
OACA 7001 



R744 OC /0214 
G744 BSI L F005 
MDX A740 
****** ************ ****** 



♦ERROR 214 
CHECK LOOP SWITCH 
LOOP 
********************* 



OACP 





2000 


A746 


LOS 









OACC 


00 


CC000B6A 




LDO 


L 


N746 




OACE 


00 


8C000B66 




AO 


L 


N742 




OAOO 


00 


2C0OOB62 




STS 


L 


N740 




0A02 


00 


4C1S0AD7 




BSC 


L 


G746,*- 




0A04 


00 


44000F65 




BSI 


L 


FOOO 


AD 0000*FFFF A FAILEO 


0A06 





0215 


P746 


DC 




/0215 


♦ERROR 215 


0A07 


00 


44000F7C 


G746 


BSI 


L 


F005 


CHECK LOOP SWITCH 


GAD9 





70F1 




MOX 




A 746 


LOOP 


OADA 





1800 




RTE 




16 




0AD6 


00 


4C180AE0 




BSC 


L 


G748.+- 




OAOO 


00 


44000F65 




BSI 


L 


FOOO 


AO 0001+FFFF Q FAILED 


OAOF 





0216 


P748 


OC 




/0216 


♦ERROR 216 


OAEO 


00 


44000F7C 


G748 


8SI 


L 


F005 


CHECK LOOP SWITCH 


0AE2 





70E8 




MOX 




A 746 


LOOP 








********************************************* 


0AE3 


00 


C4000862 


A74A 


LO 


L 


N740 




0AE5 


00 


F4000B6C 




EOR 


L 


N748 




0AE7 


00 


4C180AF5 




BSC 


L 


G74A.+- 




0AE9 


00 


4C040AF2 




BSC 


L 


H74A.E 




OAEB 


00 


44000F65 




BSI 


L 


FOOO 


CARRY NOT ON 


OAEO 





0217 


P74A 


OC 




/0217 


♦ERROR 217 


OAEE 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


OAFO 





70F2 




MDX 




A74A 


LOGP 


0AF1 





7003 




MOX 




G74A 




0AF2 


00 


44000F65 


h74A 


BSI 


L 


FOOO 


OVFLO ON 


0AF4 





0218 


R74A 


DC 




/0218 


*ERRGR 218 


0AF5 


00 


44000F7C 


G74A 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0AF7 





7003 




MOX 




A 746 


LOOP 








*********************.. 


*********#***********♦* 


0AF8 





2000 


A74C 


LDS 









0AF9 





C86C 




LOO 




N742 




OAFA 





8868 




AO 




N742 




0AF8 





2866 




STS 




N740 




OAFC 





F069 




EOR 




N742 




OAFO 


00 


4C180B02 




BSC 


L 


G74C,*- 




OAFF 


00 


44000F65 




BSI 


L 


FOOO 


AD FFFF<FFFF A FAILE 


0B01 





0219 


P74C 


DC 




/0219 


♦ERROR 219 


080? 


~0 


44000F7C 


G74C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0804 





70F3 




MDX 




A74C 


LOOP 


0B05 





18D0 




RTE 




16 




0B06 





F067 




EOR 




N74A 




0B07 


00 


4C180B0C 




BSC 


L 


G74E.+- 




0B09 


00 


44000F65 




BSI 


L 


FOOO 


AO FFFF+FFFF Cl FAILEO 


OBOB 





021A 


P74E 


DC 




/021A 


♦ERROR 21A 


080C 


00 


44000F7C 


G74E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


OBOE 





706.9 




MDX 




A74C 


LO' - ? 


OBOF 





C052 




LD 




N740 




0B10 





F05B 




EOR 




N748 




0B11 


00 


4C180B1F 




asc 


L 


J740 f +- 




0813 


00 


4C04031C 




BSC 


L 


K740.E 




0B15 


00 


44000F65 




BSI 


L 


FOOO 


CARRY NOT ON 


0B17 





021B 


S740 


DC 




/C21B 


♦ERROR 21B 


0B18 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


0B1A 





7000 




MDX 




A74C 


LOOP 


0B1B 





7003 




MOX 




J740 




0B1C 


00 


44000F65 


K740 


BSI 


I 


FOOO 


OVFLO ON 


OBIE 





021C 


T740 


DC 




/021C 


♦ERROR 21C 


0B1F 


00 


44000F7C 


.1740 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0B21 





7006 




MDX 




A74C 


LOOP 



OB22 2000 
OB23 C84C 
0B24 8841 



************************ 

B742 LDS 

LOD N74C 
AO N742 



********************* 



DATE 28FEB66 29JUN66 04N0V66 I 5FEB67 
EC NO. 415120 4I5I75A 415233 4I5233B 



80021760 
80021770 
80021780 
80021790 
80021800 
80021810 
80021820 
80021830 
80021840 
80021850 
80021860 
80021870 
80021880 
80021890 
80021900 
S0021910 
80021920 
80021930 
80021940 
80021950 
80021960 
80021970 
8C021980 
80021990 
80022000 
80022010 
80022020 
80022030 
80022040 
80022050 
80022060 
80022070 
80022080 
80022090 
80022100 
80022110 
80022120 
80022130 
80022140 
80022150 
80022160 
8C022170 
80022180 
80022190 
8C022200 
80022210 
80022220 
80022230 
80022240 
80022250 
80022260 
80022270 
80022280 
80022290 
80022300 
80022310 
80022320 
80022330 
80022340 
R0022350 
80022360 
80022370 
80022380 
80022390 
80022400 
80022410 
80022420 
80022430 



PROG ID 
PAGE 



OBOC-l 
17 



0B25 





283C 




STS 




N740 




80022440 




0326 





F03F 




EOR 




N742 




80022450 




0B27 


00 


4-190B2C 




BSC 


L 


J742,*- 




8002 2460 




0B29 


00 


44000F6 5 




BSI 


L 


FOOO 


AO FFFF+FFFF ^ FAILEO 


80022470 




0B2B 





021D 


S742 


OC 




/0210 


♦ERROR 210 


80022480 




0B2C 


00 


44000F7C 


J742 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80022490 




0B2E 





70F3 




MOX 




B742 


LOOP 


80022 500 




0B2F 





18D0 




RTE 




16 




3002251O 




0B30 





F03E 




EOR 




N74B 




80022520 




0B31 


00 


4C180B36 




BSC 


L 


„744,*- 




80022530 




OB33 


00 


44000F65 




BSI 


L 


FOOO 


AO FFFH-7FFF Q FAILE 


8002 2 540 




0B35 





021 E 


S744 


DC 




/021E 


•ERROR 21E 


80022550 




0B36 


00 


44000F7C 


J744 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80022560 




0B38 





70E9 




MOX 




6 742 


LOOP 


8002 2570 




0B39 





C028 




LD 




N740 




80022580 




0B3A 





F031 




EOR 




N748 




80022590 




0B3B 


00 


4C180B49 




BSC 


L 


J746.+- 




80022600 




0B3D 


00 


4C040B46 




BSC 


L 


K746.E 




80022610 




0B3F 


00 


4',000F6 5 




BSI 


L 


FOOO 


CARRY NOT ON 


80022620 




0B41 





021F 


S746 


DC 




/021F 


♦ERROR 21F 


80022630 




0B42 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80022640 




0B44 





7000 




MOX 




B742 


LOOP 


80022650 




0B45 





700 3 




MDX 




J 746 




C002266Q 




0B46 


00 


44000F65 


K746 


BSI 


L 


FOOO 


OVFLO ON 


80022670 




0B48 





0220 


T746 


OC 




/0220 


♦ERROR 220 


80022680 




0B49 


00 


44000 F7C 


J 746 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8002 2690 




0B4B 





7CD6 




MDX 




3742 


LOOP 


80022700 










♦♦it***************************************** 


80022710 




0B4C 





C81D 


B747 


LDO 




N746 




80022720 




0B40 





881D 




AO 




N747 




80022730 




0B4E 





F01C 




EOR 




N74 7 




80022740 




0B4F 


00 


4C180B5 4 




BSC 


L 


J748.+- 




80022750 




0B51 


00 


440 00 F6 5 




SSI 


L 


FOOO 


AD-ODD A REG FAILED 


8002 2760 




0B53 





0221 


S748 


DC 




/0221 


♦ERROR 221 


8G022770 




0B54 


00 


44000F7C 


J748 


BSI 


L 


F005 


CHECK LOOP SWITCH 


30022780 




0856 





70F5 




MOX 




B/47 


LOOP 


80022790 




0B57 





1800 




RTE 




16 




80022800 




0B58 





F013 




EOR 




N748 




80022810 




0£59 


00 


4C180B5E 




BSC 


L 


J74A.+- 




80022820 




0B5B 


00 


44000F65 




BSI 


L 


FOOO 


AD-ODD REG FAILED 


80022830 




0B5D 





0222 


S74A 


OC 




/0222 


♦ERROR 222 


80022840 




085E 


00 


44000F7C 


J74A 


BS' 


L 


F005 


CHECK LOOP SWITCH 


80022850 




0B60 





70EB 




MDX 




B747 


LOOP 


80022860 




0B61 





7010 




MDX 




A7C0 


EXIT 


80022870 




0B62 





0000 


N740 


DC 




/OOOO 




8002 2 880 




0B64 




0002 


N741 


BSS 


F 


2 




80022890 




0B66 





FFFF 


N742 


DC 




/FFFF 




80022900 




0B67 





FFFF 


N743 


DC 




/FFFF 




80022910 




0B68 





0000 


N744 


DC 




/OOOO 




80022920 




0869 





0000 


N745 


DC 




/OOOO 




80022930 




0B6A 





0000 


N746 


DC 




/OOOO 




80022940 




0B6B 





0001 


N747 


DC 




/0001 




800229f0 




0B6C 





0002 


N748 


DC 




/0002 




8002 2960 




0B60 





0000 


N749 


DC 




/COOO 




80022970 




0B6E 





FFFE 


N74A 


DC 




/FFFE 




80022983 




0B6F 





7FFE 


N74B 


DC 




/7FFE 




8002 2990 




0B70 





FFFF 


N74C 


DC 




/FFFF 




8002 3000 




0B71 





7FFF 


N740 

* 
* 
* 


CC 




/7FFF 


TEST SUB DOUBLE 


80023010 
80023020 
80023030 
80023040 










********************************************* 


80023050 




0B72 





2000 


A 7 80 


LDS 









80023060 




0B73 





C86A 




LDO 




N.'82 




80C230 70 




0B74 





986B 




SO 




N784 




80023080 




0875 





2864 




STS 




N780 




80023090 




0B76 





F06B 




EOP 




N786 




80023100 




0B77 


00 


4C180B7C 




BSC 


L 


G780.+- 




80023110 




DATE 




28FEB66 


29JUN66 04N0V66 l5rEB67 




PROG ID 


0800- 1 


EC NO. 


415120 


4I5I75A 415233 4I5233B 




PAGE 


17A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2183266 
PAGE 18 



DIAGNOSTIC KQNITOR HEADER PROGRAM (CARD) 
OP CODES SECTION 



OB 79 


00 


44000F65 




BSI 


L 


FOOO 


SD 0000-0000 A FA I IE 


80023120 




0B76 





0231 


P780 


DC 




/0231 


♦ERROR 231 


80023130 




0B7C 


00 


44000F7C 


G7B0 


BSI 


L 


F005 


CHECK LOOP SWITCH 


30023140 




0B7E 





70F3 




MDX 




A780 


LOOP 


80023150 




0B7P 





1800 




RTE 




16 




80023160 




0B80 





F061 




EOR 




N786 




80023170 




0B81 


00 


4C180B86 




BSC 


L 


G782.+- 




80023180 




0B83 


00 


44000F65 




BSI 


L 


FOOO 


SD 0000-0001 Q FAILED 


80023190 




OB85 





0232 


P782 


DC 




/0232 


♦ERROR 232 


80023200 




OB 86 


00 


44C00F7C 


G782 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023210 




0B88 





70E9 




MOX 




A780 


LOOP 


80023220 




0B89 





C050 




LD 




N780 




80023230 




0B8A 





F059 




EOR 




N788 




80023240 




0B8B 


00 


4C180B99 




BSC 


L 


G734.+- 




8w023250 




0B8D 


00 


4C040B96 




BSC 


L 


H784.E 




80023260 




0B8F 


00 


44000F65 




BSI 


L 


FOOO 


CARRY NOT ON 


00023270 




0B91 





0233 


P784 


DC 




/0233 


♦ERROR 233 


80023280 




0B92 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOO!' SWITCH 


80023290 




0B94 





70D0 




MDX 




^780 


LOOP 


80023300 




0B95 





7003 




MDX 




G784 




80023310 




0B96 


00 


44000F65 


H784 


8SI 


L 


FOOO 


OVFLO ON 


80023320 




0B98 





0234 


R784 


DC 




/02 34 


♦ERROR 234 


80023330 




0B99 


00 


•.4000F7C 


G784 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8002 3340 




0B9B 





70D6 




HDX 




A780 


LOOP 


80023350 










*********** * 


******************************** 


80023360 




0B9C 





2000 


A736 


LDS 









80023370 




0B9D 





C840 




LOD 




N782 




80023380 




0B9E 





9843 




SO 




N786 




80023390 




0B9F 


00 


4C180BA4 




BSC 


L 


G786.+- 




80023400 




0BA1 


00 


44000F65 




BSI 


L 


FOOO 


SO OOOO-FFFF A FAILED 


80023410 




0BA3 





0235 


P786 


Ot 




/0235 


♦ERROR 235 


80023420 




0BA4 


00 


44000F7C 


G786 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023430 




0BA6 





70F5 




MOX 




A786 


LOOP 


80023440 




0BA7 





18D0 




RTE 




16 




6002 3450 




0BA8 





F038 




EOR 




N785 


, 


80023460 




0BA9 


00 


4C1808AE 




BSC 


L 


G738.+- 




80023470 




OBAB 


00 


44000F65 




BSI 


L 


FOOO 


SO OOOO-FFFF Q FAILE 


80023480 




OBAD 





0236 


P788 


DC 




/0236 


♦ERROR 236 


80023490 




OBAE 


00 


44000F7C 


G788 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023500 




OBBO 





70EB 




MOX 




A786 


LOOP 


80023510 




0BB1 





C834 




LDD 




N78A 




80023520 




0BB2 





982F 




SO 




N786 




8002 3530 




0BB3 


00 


4C180BB8 




BSC 


L 


G78A.+- 




80023540 




0BB5 


00 


44000F6 5 




BSI 


L 


FOOO 


SO OOOO-FFFF A FAILED 


80023550 




0BB7 





0237 


P78A 


DC 




/0237 


♦ERROR 237 


80023560 




0BB8 


00 


44000F7C 


G78A 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023570 




OBBA 





70E1 




MDX 




A786 


LOOP 


800235SO 




OBBB 





1300 




RTE 




16 




80023590 




08BC 





F02C 




EOR 




N78D 




80023600 




OBBD 


00 


4CJ80BC2 




BSC 


L 


G«8Ct+- 




80023610 




OBBF 


00 


44000F65 




BSI 


L 


FOOO 


SP COOO-FFFF Q FAILE 


80023620 




0BC1 





0238 


P78C 


DC 




/0238 


♦ERROR 238 


80023630 




08C2 


00 


44000F7C 


G78C 


BSI 


L 


F00 5 


CHECK LOOP SWITCH 


80023640 




0BC4 





700 7 




MDX 




A786 


LOOP 


80023650 










******************** ****************** ******* 


9002 3660 




0BC5 





C818 


A78E 


LDD 




N782 




80023670 




0BC6 





981C 




SD 




N787 




80023680 




0BC7 


00 


4C180BCC 




BSC 


L 


G78E.+- 




80023690 




0BC9 


00 


44000F65 




BSI 


L 


FOOO 


SO-OOD A FAILED 


8002 3700 




OBCB 





0239 


P78E 


DC 




/0239 


♦ERROR 239 


80023710 




OBCC 


00 


44000F7C 


G78E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023720 




OBCE 





70F6 




MDX 




A78E 


LOOP 


80023730 




OBCF 





1800 




RTE 




16 




80023740 




OBDO 





F010 




FOR 




N785 




80023750 




0B01 


00 


4C180B06 




BSC 


L 


H780.+- 




80023760 




00D3 


00 


44000F65 




BSI 


L 


FOOO 


SD-000 Q FAILED 


80023770 




0BD5 





023A 


R780 


DC 




/023A 


♦ ERROR 2S" 1 


80023780 




0806 


00 


44000F7C 


H780 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80023790 




DATE 




28FE866 


29JUN66 04NOV66 I5FEB67 




PROG ID 


0800-1 


EC NO. 


415120 


4I5I75A 415233 4I5233B 




PAGE 


18 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



0B08 





70EC 




MDX 




A78E 


LOOP 


CB09 





7010 




MDX 




A7C0 


EXIT 


OBDA 





rooo 


N780 


DC 




/OOOO 




OBDC 




0002 


N781 


BSS 


E 


2 




OBOE 





0000 


N782 


oc 




/OOOO 




OBDF 





0000 


N783 


DC 




/OOOO 




OBEO 





0000 


N784 


DC 




/OOOO 




0BE1 





0001 


N785 


DC 




/00C1 




0BE2 





FFFF 


N786 


DC 




/FFFF 




0BE3 





FFFF 


N787 


DC 




'FFFF 




08E4 





0002 


N788 


DC 




/0002 




08E5 





0000 


N789 


OC 




/OOOO 




0BE6 





0000 


N78A 


DC 




/OOOO 




0BE7 





cooo 


N78B 


OC 




/COOO 




0BE8 





BFFF 


N78C 


DC 




/BFFF 




0BE9 





C001 


N780 

♦ 
♦ 
* 


DC 




/C001 














TEST 


OF MULTIPLY OPERATION 








********************************************* 


OBEA 





C04F 


A7C0 


LD 




N7C0 




OBEB 





A04F 




M 




N7C1 




OBEC 





F04F 




EOR 




N7C2 




OBED 


00 


4C180BF2 




BSC 


L 


G7C0,*- 




OBEF 


00 


44000F65 




BSI 


L 


FOOO 


MULT 5555X2AAA A FAI 


0BF1 





0241 


P7C0 


DC 




/0241 


♦ERROR 241 


0BF2 


00 


44000F7C 


G7C0 


BSI 


L 


F005 


CHECK LOUP 5'aITCH 


0BF4 





70F5 




MDX 




A7C0 


LOOP 


0BF5 





1800 




RTE 




16 




0BF6 





F046 




EOR 




N7C3 




0BF7 


00 


4C180BFC 




BSC 


L 


G7C2.+- 




0BF9 


00 


44000 F6 5 




BSI 


L 


FOOO 


MULT 5555X2AAA FAIL 


OBFB 





0242 


P7C2 


DC 




/0242 


♦ERROR 242 


OBFC 


j 


44000F7C 


G7C2 


BSI 


L 


F005 


CHECK LOOP SWITCH 


OBFE 





70EB 




MDX 




A7C0 


LOOP 








*♦♦♦♦♦♦♦♦♦♦*» 


******************************** 


OBFF 





C03E 


A7C4 


LD 




N7C4 




OCOO 





A03D 




M 




N7C4 




G--.01 


00 


4C180C06 




BSC 


L 


G7C4,t- 




CC03 


00 


44000F65 




9SI 


L 


FOOO 


MULT FFFFXFFFF A FAIL 


0C05 





0243 


P7C4 


DC 




/0243 


♦ERROR 243 


0C06 


f>0 


44000F7C 


G7C4 


8SI 


L 


F005 


CHECK LOOP SWITCH 


0C08 





70F6 




MDX 




A7C4 


LOOP 


0C09 





18D0 




RTE 




16 




OCOA 





F034 




EOR 




N7C5 




OCOB 


00 


4C180C10 




BSC 


L 


G7C6 t +- 




OCOD 


00 


44000F65 




BSI 


L 


FOOO 


MULT FFFFXFFFF FAI 


OCOF 





0244 


P7C6 


DC 




/0244 


♦ERROR 244 


0C10 


00 


44000F7C 


G7C6 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0C12 





70EC 




MDX 




A7C4 


LOOF 








********************************************* 


0C13 





C02C 


A7C8 


LD 




N7C6 




0C14 





A029 




M 




N7C4 




0C15 


00 


fCieociA 




BSC 


L 


G7C8.+- 




0C17 


00 


44000F65 




BSI 


L 


FOOO 


MULT FFFFXOOOO A FAI 


0C19 





0245 


P7C8 


DC 




/0245 


♦ERROR 245 


0C1A 


00 


44000F7C 


G7C8 


BSI 


L 


F005 


CHECK LOOP SWITCH 


OCIC 





70F6 




MOX 




A7C8 


LOOP 


0C10 





18D0 




RTE 




16 




OCIE 


00 


4C180C23 




BSC 


L 


G7CA,*- 




0C20 


00 


44000F65 




BSI 


L 


FOOO 


MULT FFFFXOOOO FAI 


0C22 





0246 


P7CA 


OC 




/0246 


♦ERROR 246 


OC23 


00 


44000F7C 


G7CA 


BSI 


L 


F005 


CHECK LOOP SWITCH 


OC25 





70ED 




MDX 




/ 7C8 


LOOP 



0C26 C017 
0C27 A018 
0C28 00 4C180C2D 



*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦****** 
A7CC LD N7C4 
M N7C6 
BSC L G7CC + 



*********************** 



80023800 
80023810 
8002 3820 
80023830 
80023840 
8O02365C 
80023660 
80023870 
80023630 
80023890 
80023900 
80023910 
80023920 
8002 3930 
80023943 
80023950 
8002 3960 
80023970 
80023930 
8002 3990 
80024000 
80024010 
10024020 
80024030 
80024040 
80024050 
8002404.0 
80024070 
80024030 
8002*090 
80024100 
80024110 
80024120 
8002413') 
30024140 
80024150 
80024160 
80024170 
P00241S0 
80024190 
80024200 
80024210 
80024220 
80024230 
80024240 
80024250 
80024260 
80024270 
S002«i280 
80024290 
80024 300 
80024310 
80024320 
80024330 
800243*0 
80024350 
80024360 
80024370 
80024360 
8C024390 
8002 44C0 
8002*410 
80024420 
80024430 
800244*0 
80024450 
80024460 
80024470 



DATE 

EC NO. 



28FEB66 
415120 



29jUN66 
4I5I75A 



04NOV66 
415233 



'5FEB67 
4 I 5233B 



PRCG ID 
PAGE 



0800-1 
ISA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2 .83266 
PAGE 19 



DIAGNOSTIC MONITOR HEADER PROGRAM (^RO) 
OP COOES SECTION 



0C2A 


00 


44000F65 




BSI 


L 


FOOO 


MULT OOOOXFFFF A FAI 


80024480 




0C2C 





0247 


P7CC 


OC 




/0247 


♦ ERROR 247 


80024490 




0C2D 


00 


44000F7C 


G7CC 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80024500 




0C2F 





70F6 




MDX 




A7CC 


LOOP 


80024510 




0C30 





1800 




RTE 




16 




80024520 




0C31 


00 


4C180C36 




BSC 


L 


G7CE,*- 




80024530 




OC33 


00 


44000F65 




BSI 


L 


FOOO 


MULT OOOOXFFFF A FAI 


80024540 




0C35 





0248 


P7CE 


OC 




/0248 


♦ERROR 248 


80024550 




0C36 


00 


44000F7C 


G7CE 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80024560 




0C38 





TOED 




MOX 




A7CC 


LOOP 


80024570 




0C39 





700 7 




MDX 




A 800 


EXIT 


80024580 




0C3A 





55 5 5 


N7C0 


DC 




Z5555 




80024590 




0C3B 





2AAA 


N7C1 


DC 




/2AAA 




80024600 




0C3C 





0E38 


N7C2 


OC 




/0E33 




80024610 




0C30 





9C72 


N7C3 


DC 




/9C72 




80024620 




0C3E 





FFFF 


N7C4 


DC 




/FFFF 




80024630 




0C3F 





0001 


N7C5 


DC 




/0001 




80024640 




0C40 





0000 


N7C6 

* 
* 
* 


DC 




/oooo 

TEST 


OF DIVIDE OPERATION 


80024650 
80024660 
80024670 
80024680 










********************************************* 


80024690 




0C41 





2000 


A800 


LDS 









80024700 




0C42 


00 


CC000CE2 




LDD 


L 


N802 




80024710 




0C44 


00 


ACOO0CF2 









N812 




80024720 




0C46 


00 


2C000CDE 




STS 


L 


N800 




80024730 




0C46 


00 


F4000CF2 




EOR 


L 


N812 




80024740 




0C4A 


00 


4C180C4F 




BSC 


L 


G800,*- 




80024750 




0C4C 


00 


44000F65 




BSI 


L 


FOOO 


DVO-A-REG .NCOPRECT 


80024760 




0C4E 





0251 


P800 


DC 




/0251 


♦ERROR 251 


80024770 




0C4F 


00 


44000F7C 


G300 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80024780 




0C51 





70EF 




MDX 




A800 


LOOP 


80024790 




0C52 





18D0 




RTE 




16 




80024800 




0C53 


00 


F4000CF1 




EOR 


L 


N811 




00024810 




0C55 


OG 


4C180 , :SA 




BSC 


L 


G802.+- 




80024820 




0C57 


00 


44000F65 




BSI 


L 


FOOO 


DVD-a REG INCORRECT 


80024830 




0C59 





0252 


P802 


OC 




/0252 


♦ERROR 252 


80024840 




0C5A 


00 


44000F7C 


G802 


BSI 


L 


F005 


CHECK LOOP SWITCH 


60024850 




0C5C 





70E4 




MDX 




A800 


LOOP 


80024860 




0C5D 


00 


C4000COE 




LO 


L 


N800 




80024870 




0C5F 


00 


4C180C60 




BSC 


L 


G804,*- 




80024880 




0C61 


00 


4C040C6A 




BSC 


L 


H804.E 




80024890 




0C63 


00 


44000F65 




BSI 


L 


FOOO 


CARRY ON 


80024900 




0C65 





0253 


P804 


DC 




/0253 


♦ERROR 253 


80024910 




0C66 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80024920 




0C68 





7006 




MDX 




A800 


LOOP 


80024930 




0C69 





7006 




MDX 




A806 




80024940 




0C6A 


00 


44000F65 


H804 


SSI 


L 


FOOO 


OVFLO ON 


80024950 




0C6C 





0254 


R804 


OC 




/0254 


♦ERROR 254 


80024960 




0C6D 


00 


44000F7C 


G804 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80024970 




0C6F 





7001 




MDX 




A800 


L^OP 


80024980 










********************************************* 


80024990 




0C70 





C873 


A 806 


LDD 




N804 




80025000 




0C71 


00 


ACOO0CF3 




3 


L 


N813 




80025010 




0C73 





286A 




STS 




N800 


^# 


80025020 




0C74 


00 


F40C0CF3 




EOR 


L 


N813 




80025030 




0C76 


00 


4C180C7B 




BSC 


L 


G806.+- 




80025040 




0C78 


00 


44000F65 




BSI 


L 


FOOO 


DVD-A REG INCORRECT 


80025050 




CC7A 





0255 


P806 


OC 




/0255 


♦ERROR 255 


80025060 




0C7B 


00 


44000F7C 


G806 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80025070 




0C70 





70F2 




MDX 




A 806 


LOOP 


80025080 




0C7E 





1800 




RTE 




16 




80025090 




0C7F 


00 


F4000CF6 




EOR 


L 


N316 




80025100 




0C81 


00 


4C180C86 




DSC 


L 


G808.+- 




80025110 




0C83 


00 


44000F6 5 




BSI 


L 


FOOO 


DVO-0 REG INCORRECT 


80025120 




0C85 





0256 


P808 


DC 




/0256 


♦ERROR 256 


80025130 




0C86 


00 


44000F7C 


G808 


BSI 


L 


F005 


CHECK LOL> SWITCH 


80025140 




0C88 





70E7 




MDX 




A 806 


LOOP 


80025150 




DATE 




28FEB66 


29JUN66 04NOV66 l5FFRfi", 


i 


PROG ID 


0800-1 


EC NO. 


41 5120 


4151 75 


-A 41 


57- 1 


13 dlRHTC 


j 


PAGE 


19 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART WO. 2183266 
PAGE 19A 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



0C89 





C054 




LO 




N800 




8002*1*0 


0C8A 


00 


4C180C98 




BSC 


L 


G80A,*- 




80025170 


0C8C 


00 


,f.040C95 




BSC 


L 


H80A.E 




8002 5180 


0C8E 


00 


44000F65 




8SI 


L 


FOOO 


CARRY ON 


80025l<90 


0C90 





0257 


P80A 


OC 




.'0257 


ERROR 257 


800252OO 


0C91 


00 


44000F7C 




BSI 


L 


F005 


CHECK LOOP SWITCH 


80025210 


0C93 





700C 




MDX 




A806 


LOOP 


8002 5220 


0C94 





7006 




MDX 




A80C 




30025230 


0C95 


00 


44000F65 


H80A 


BSI 


L 


FOOO 


OVFLO ON 


80025240 


0C97 





0258 


R80A 


DC 




/0258 


♦ERROR 258 


80025250 


0C98 


00 


44000F7C 


G80A 


BSI 


L 


F005 


CHECK '.OOP SWITCH 


80025260 


0C9A 





70D5 




MDX 




A 806 


LOUP 


80025270 








********************************************* 


80025280 


0C9B 





2000 


A80C 


LDS 









8002 5290 


0C9C 





C849 




LDD 




N806 




80025300 


0C9D 





A850 









N80E 




80025310 


0C9E 


00 


4C010CA3 




BSC 


L 


G80C.0 




80025320 


OCAO 


00 


44000F6 5 




BSI 


L 


FOOO 


DVD BY 0-OVRFLW OFF 


8002 5330 


0CA2 





0259 


P80C 


DC 




/0259 


♦ERROR 259 


8C025340 


0CA3 


00 


44000F7C 


G30C 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80025350 


OCAS 





70F5 




MDX 




A80C 


LOOP 


80025360 








********************************************* 


80025370 


0CA6 





2000 


A80E 


LDS 









8002 53B0 


0CA7 





C840 




LDD 




N808 




80025390 


0CA8 





A83E 









N807 




80025-400 


0CA9 


00 


4C010CAE 




BSC 


L 


G80E,0 




80025*10 


OCAB 


00 


44000F65 




BSI 


L 


FOOO 


OVD-BY 1-0V"FLW OFF 


80025420 


OCAO 





025A 


P80E 


DC 




/025A 


♦ERROR 25A 


800254)30 


OCAE 


00 


44000F7C 


G80E 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80025440 


OCBO 





70F5 




MDX 




A80E 


LOOP 


80025450 








*****♦♦*****************************- ******** 


80025*60 


0CB1 





2000 


B800 


LDS 









800254 70 


0CB2 





C837 




LOD 




N80A 




80025480 


0CB3 


(.: 


A834 









N808 




3002 5490 


0CB4 


00 


4C010CB9 




BSC 


L 


J 800,0 




8002 5500 


GC?6 


00 


440C0F65 




BSI 


L 


FOOO 


CVO/4000-OVRFLW OFF 


80025510 


0CB8 





025B 


S800 


DC 




/025B 


♦ERROR 25B 


80025520 


0CB9 


00 


4400' F7C 


J800 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80025530 


(iCRB 





70F5 




MDX 




8 800 


LOOP 


8002 5540 








********************************************* 


80025550 


OCBC 





2000 


B802 


LDS 









80025560 


OCBD 





C82E 




LDO 




N80C 




80025570 


OCBE 





A833 




D 




N812 




80025580 


OCBF 


00 


4C0inCC4 




BSC 


L 


JP02.0 




80025590 


0CC1 


00 


44000F65 


J803 


BSI 


L 


FOOO 


DVO/8000-OVRFLW ON 


80025«»00 


0CC3 





025C 


S802 


DC 




/02 5C 


♦ERROR 25C 


80025610 


0CC4 


00 


44000F7C 


J802 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80025620 


0CC6 





70F5 




MOX 




3802 


LOGP 


80025630 








********************************************* 


d002 564O 


0CC7 





2000 


B804 


LOS 









80025650 


0CC3 





C825 




LDD 




N80E 




8002 5660 


0CC9 





A810 




D 




N807 




80025670 


OCCA 


00 


4C010CCF 




BSC 


L 


Jfi04,0 




8002 5650 


OCCC 


00 


44000F65 


J805 


BSI 


L 


FOCO 


DVD/000.' -OVRFLW ON 


8002 5690 


OCCE 





025D 


S804 


DC 




/02 50 


♦ERROR 250 


8002 5700 


OCCF 


00 


44000F7C 


J804 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8002 5710 


OCOl 





70F5 




MDX 




8 804 


LOOP 


8002 5720 








********************************************* 


80025730 


0CD2 





2000 


B806 


LDS 









8002 57*0 


0C03 





C81C 




LOO 




N810 




8002 5750 


0CD4 





A812 




D 




N807 




8002 5760 


0C05 


00 


4C010CDA 




BSC 


L 


Ja06,0 




8002 5770 


0C07 


00 


44000F65 


J 807 


BSI 


L 


FOOO 


OVO/0001-OVRFLW GN 


8002 5780 


0C09 





025E 


S806 


DC 




.'025E 


♦ERROR 25E 


80 02 57OO 


OCDA 


00 


44000F7C 


J806 


BSI 


L 


F005 


CHECK LOOP SWITCH 


8002 5800 


OCOC 





70F5 




MDX 




8 306 


LOOP 


80025810 


OCDD 





7026 




MDX 




B807 




8002 5820 


OCDE 





0000 


N800 


DC 




/OOOO 




8002 5630 


DATE 




28FFB66 


29JUN66 04NOV66 l';FED67 




PRCG 10 0800-1 


EC NO. 


415120 


4I5I75A 415233 4I5233B 




PAGE i?A 
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OP COOES SECTION 



PART NO. '183266 
PAGE 20 



IBM MAINTENANCE DIAGNOSTIC PROGRAM Ff» THE 1800 SYSTEM 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



PART NO. 2183266 
PAGE 20 A 



OCEO 


0002 


N801 


BSS 


E 


2 


0CE2 


4000 


N802 


DC 




/4000 


0CE3 


7FFF 


N803 


DC 




/7FFF 


0CE4 


1C71 


N804 


DC 




/1CT1 


0CE5 


B3E3 


N805 


DC 




/88E3 


0CE6 


0000 


N806 


DC 




/OOOO 


0CE7 


0001 


N807 


DC 




/0001 


0CE6 


4000 


N808 


DC 




/4000 


0CE9 


0000 


N8G9 


DC 




/OOOO 


OCF.A 


AOOO 


N80A 


DC 




/AOOO 


OCEB 


0000 


N808 


DC 




/OOOO 


OCEC 


cooo 


N80C 


DC 




/COOO 


OCEO 


0000 


N800 


DC 




/OOOO 


OCEE 


0000 


N80E 


DC 




/OOOO 


OCEF 


FFFF 


N8CF 


OC 




/FFFF 


OCFO 


FFFF 


N810 


DC 




/FFFF 


0CF1 


7FFF 


N811 


DC 




/7FFF 


0CF2 


8000 


N812 


DC 




/8000 


0CF3 


5555 


N813 


DC 




/5555 


0CF4 


3000 


N814 


DC 




/3000 


0CF5 


3777 


N815 


DC 




.'37 77 


0CT6 


20AA 


N616 


DC 




/2DAA 


0CF7 


COOO 


M817 


DC 




/COOO 


0CF8 


6100 


N818 


DC 




/6100 


0CF9 


0000 




DC 




/OOOO 


OCFA 


sooo 


N819 


DC 




/8000 


OCFB 


cooo 




OC 




/OOOO 


OCFC 


0002 


Ki820 


DC 




/0002 


OCFO 


0000 


N821 


DC 







OCFE 


2000 




DC 




/2000 


OCFF 


4000 




DC 




/4000 


ODOO 


COOO 




DC 




/COOO 


0D01 


8000 


N822 


DC 




/8000 


ODOi 


FFFF 


N823 


DC 




/FFFF 


0003 


FFFF 




OC 




/FFFF 






****#*#********»***♦**************»********** 


0D04 


2000 


B807 


LDS 







0D05 


C8F2 




LDD 




N818 


0006 


A8F0 




D 




N817 


0007 00 


4C010D0C 




8SC 


L 


jao8,c 


0009 00 


44000F65 




BSI 


L 


FOOO 


OOOB 


0351 




OC 




/351 * ERROR 351 


OOOC 00 


44000F7C 


J803 


BSI 


L 


F005 


ODOE 


70F5 




MDX 




8807 






#*»*»♦****»»»****♦*»*■>*****♦****** **#!^«****** 


ODOF 


2000 


B808 


LDS 







0010 


CPF9 




LDD 




N819 


0011 


A8D0 









N80F 


0012 00 


4C0 10017 




3SC 


L 


J809.0 


0014 00 


44000F65 




BSI 


L 


FOOO 


0016 


0352 




OC 




/352 * ERROR 352 


0D17 00 


44000F7C 


J809 


3SI 


L 


F005 


0019 


70F5 




MOX 




8808 






**»»*♦ ************** ****»**********»**##***** 


0D1A 


2000 


B809 


LDS 







0D1B 


C8F6 




LDO 




N823 


001C 


A3DF 




D 




N820 


ODID 00 


4C0 10020 




BSC 


L 


J815.0 


001F 


7003 




MDX 




J810 


0020 00 


44000F65 


J815 


BSI 


L 


FOOO 


0022 


0353 




DC 




/353 


0023 00 


44000F7C 


J810 


BSI 


L 


F005 


0025 


70F4 




MDX 




6 809 






* ********************************************* 






♦♦♦********4*3# ******************* *********** 


0D26 


6104 


B810 


LDX 


1 


. 4 


0027 


C0D9 


J814 


LO 




N822 


0028 


D004 




STO 




N821 



80025840 

80025850 

80025860 

80025870 

80025830 

8002 5890 

80025900 

80025910 

80025920 

80025930 

8002 5940 

80025950 

8002 5960 

60025970 

8002 5980 

80025990 

8002600C 

80026010 

80026020 

80026030 

63026040 

80026050 

8001:6060 

80026070 

80026080 

80026090 

80026100 

80026110 

80026120 

80026130 

80026140 

80026150 

80026160 

80026170 

80026180 

80026190 

80026200 

80026210 

80026220 

80026230 

80026240 

J0026250 

80026260 

80026270 

80026280 

80026290 

80026300 

80026310 

80026320 

80026330 

80026340 

80026350 

80026360 

80026370 

800^6380 

80026390 

80026400 

80026410 

80026420 

80026430 

80026440 

80026450 

80026460 

80026470 

80026480 

80026490 

80026500 

80026510 



0D29 


C0D3 


J811 


LO 




N821 




0D2A 


00 A5000CrO 




M 


LI 


N821 




0D2C 


2000 




LDS 









0D20 


A8CF 




D 




N821 




0D2E 


00 F5000CFD 




EOR 


LI 


N821 




0D30 


00 4C180035 




BSC 


i uei2,+- 




0032 


00 44000F65 




BSI 


t 


!FCO0 




0034 


0354 




DC 




i/354 


* ERROR 354 


0D35 


00 44000F7C 


J812 


8SI 


L 


FC05 




0037 


70F1 




MDX 


-~* 


J811 




0D38 


18D0 




RTE 




16 




0039 


00 4C180D3E 




BSC 


L 


J813.+- 




0D3B 


00 44000F65 




BSI 


L 


T-000 




0D30 


0355 




OC 




/355 


* ERROR 355 


0D3E 


00 44000F7C 


J813 


BSI 


L 


F005 




0040 


70E8 




MOX 




J811 




0D41 


COBB 


J816 


LD 




N821 




0042 


80A4 




A 




N807 


AOO ONE 


0043 


00B9 




STO 




N821 




0D44 


00 4C180D41 




BSC 


L 


J816.+- 




0D46 


FOBA 




EOR 




N822 




0DV7 


00 4C200D29 




asc 


L 


J811.Z 




0049 


71FF 




MDX 


1 


-1 




0D4A 


700C 




MDX 




JS14 








********************************************* 






* 
* 
***** 






TEST 


OF MOX OPERATION 






**************************************** 


0D4B 


6100 


A 840 


LDX 


1 







0D4C 


71FF 




MOX 


I 


-1 




0D4D 


30B4 




DC 




/30B4 


MOX FAILED TO SKIP 


0D4E 


l- 696E 




STX 


1 


NB40 




004F 


C06D 




LO 




N840 




0050 


F06D 




EOR 




N841 




0D51 


00 4C180D56 




BSC 


L 


G840.+- 




0053 


00 44000F65 




BSI 


L 


FOOO 


MDX 1X1 FA I LEO 


0055 


027. 


P840 


DC 




/C271 


♦ERROR 271 


OD56 


00 44000F7C 


G840 


BSI 


L 


F005 


CHECK LOOP SWITCH 


0058 


70F2 




MDX 




A 840 


LOOP 






********************************************* 


0D59 


C069 


A842 


l: 




N845 




0D5A 


00 74010DBF 




MDX 


L 


N842.1 




005C 


F06C 




EOR 




N345 




0050 


00 4C180D62 




BSC 


L 


H842,*~ 




005F 


00 44000F65 




BSI 


L 


FOOO 


ACC DISTROYFO AFTER 1 


0061 


0356 




DC 




/356 


* ERROR 356 


0062 


C05C 


H842 


LD 




N842 




0063 


F060 




EfiR 




N846 




0D64 


00 4C180D69 




BCC 


L 


G842,«— 




0066 


00 44000."65 




BSI 


L 


^000 


ADD TO MEM FAILED 


0068 


0272 


P842 


DC 




/0272 


*ERROR 272 


0069 


C057 


G842 


LD 




N843 




006A 


D054 




STO 




N842 




006B 


00 44000F7C 




bs: 


L 


F005 


CHECK LOOP SWITCH 


0060 


70EB 




MDX 




A 842 


LOOP 






********************************************* 


0D6E 


00 6600FFFE 


A844 


LDX 


L2 


-2 




0D70 


00 76000001 




MDX 


L2 


1 




0D72 


6A4A 




SIX 


2 


N840 




0D73 


C049 




LD 




N840 




0074 


F049 




EOR 




N841 




0075 


00 4C180D7A 




BSC 


L 


G844.+- 




0077 


00 44000F65 




BSI 


L 


rOOO 


MDX LONG IX c FAILED 


0079 


0273 


P844 


DC 




/0273 


♦ ERROR >7 3 


007A 


00 44000F7C 


G844 


BSI 


L 


F005 


CHECK LOnP SWITCH 


0D7C 


70F1 




MDX 




A 844 


LOOP 



********************************************* 



80026920 
80326530 
80026540 
80026550 
80026560 
80026570 
80026580 
80026590 
80 076600 
80026610 
80026670 
80076630 
80026640 
80026650 
80026660 
80026670 
80026680 
80026690 
80026700 
80026710 
80026720 
80026730 
80O26740 
80026750 
80026760 
80026770 
80026780 
30026790 
80026800 
80026810 
80O26820 
80026830 
80026840 
80026850 
80026860 
80026870 
80026880 
800268^0 
80026900 
80026910 
80026920 
80036930 
80026940 
80026950 
80026960 
80026970 
80026980 
80026990 
80027000 
80027010 
80027020 
80027030 
80027040 
80027050 
8002 7C60 
80027070 
80027080 
80027090 
80027100 
>?00271l0 
80027120 
8002 7130 
30027140 
8J027150 
80027160 
80027170 
80027130 
80027190 
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PROG ID 
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DATE 


28FEB66 
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EC NO. 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FUR THE 1800 SYSTEM 



PART NO. 2183266 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP CODES SECTION 



DIAGNOSTIC MONITOR HEAOER PkOGRAM (CARD) 
OP CCJES SECTION 



0D7D 63FF 
0D7E T301 
0D7F 7001 
0D80 7003 
0D81 00 44000F65 
0083 0274 
0D84 00 44000F7C 
0D86 70F6 

0DS7 61Fr 
0088 7104 
0D89 7001 
008A 7003 
0D8B 00 44000F65 
0D8D 0275 
0D8E 00 44000F7C 
0D90 70F6 



0D91 
0D93 
0D«4 
0096 
0097 
0D98 
0D9A 
009C 
0D9D 
0D9E 
0D9F 
0DA1 
0DA3 
0DA4 
0DA6 



00 6500FFFE 

COFF 

00 75800DC3 

6926 

FOFB 

00 4C180D9D 

00 44000F65 

03*9 

COIF 

F01F 

00 4C180DA4 

00 44000F65 

0276 

00 44000F7C 

70fcA 



0DA7 00 74000DBB 
0DA9 7001 
ODAA 7003 
ODAB 00 44000F65 
OOAD 0358 
ODAE 00 44000F7C 
OOBO 70F6 



0D31 00 
00B3 
0034 00 
0D36 
00B7 00 
0DB9 
ODBA 
OOBB 
ODBC 



ODBO 
ODBE 
ODBF 
OOCO 
00C1 
00C2 
00C3 
0DC4 



74000DBC 

7003 

44000F65 

0359 

44000F7C 

70F7 

700A 

0000 

0001 

0000 
FFFF 
3000 
3000 
3000 
0001 
0DC2 
3001 



0DC5 610A 
0DC6 00 CCOOOEBE 
0DC8 2002 
0DC9 1140 



A846 



G846 
P846 
H846 



LDX 

MOX 

MDX 

MDX 

8SI 

DC 

BSI 

MDX 



-1 

1 

G846 

H846 

FOOO 

/0274 

F005 

A846 



IX 3 NO SKIP AT 
♦ERROR 274 
CHECK LOOP SWITCH 
LOOP 



********************************************* 



A848 



G848 
P848 
H848 



LDX 

MDX 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



I -1 
1 4 

G848 

H848 
. FOOO 

/0275 
. F005 

A845 



SIGN CHANGE-NO SKIP 

♦ERROR 27 5 

CHECK LOOP SWITCH 

LOOP 



********************************************* 



A849 
H849 



K849 



P849 
G849 



LDX 

LD 

MDX 

STX 

EOR 

BSC 

BSI 

DC 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



LI -2 

H849 

II N845 

1 N840 

H849 
L K849.+- 
L FOOO 

/349 

N840 

N841 
L G849,t- 
L FOOO 

/0276 
L F005 

A 849 



ACC GONE AFTER MDX I OEXED 
, * ERROR 349 



INOIRECT MDX FAILED 

♦ERROR 276 

CHECK LOOP SWITCH 



**********v ******************************** ******* 



A84A 



G84A 



H84A 



MDX 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



N84A.0 

G84A 

H84A 

FOOO 

/358 

F005 

A84A 



TEST SKIP IF ZERO 



MDX L FAILED TD SKIP 
♦ERROR 



**************************** ****** **************** 



A8 5A 



H85A 



MDX 

MDX 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

DC 



N85A.O 

H85A 

FCOO 

/359 

F005 

A35A 

A880 



1 



TEST NOM SKIP 

MDX L SKIPEU 
♦ERROR 



riNSTANT ZERO 
SON ZERO CONSTANT 



N84A 
N85A 
************************************************** 



N840 
N841 
N842 

N843 
N844 
N845 
N846 

* 
* 



DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 



/OOOO 

/FFFF 

/3000 

/3000 

/3000 

/0001 

N844 

/3001 



TEST OF SLC OPERATION 



********************************************* 
A880 LDX 1 10 

LDD L N882 

LDS 2 

SLCA 1 



80027200 

80027210 

80027220 

80027230 

80027240 

80027250 

80027260 

80027270 

80027280 

80027290 

80027300 

80027310 

J002 7320 

80027330 

80027340 

80027350 

8002 7360 

80027370 

80027380 

8002 7390 

80027400 

80027410 

80027420 

80027430 

80027440 

80027450 

80027460 

80027470 

80027480 

80027490 

80027500 

30027510 

80027520 

80027530 

80027540 

b0027550 

80027560 

80027570 

80027580 

80027590 

8002 7600 

80027610 

80027620 

80027630 

80027640 

80027650 

80027660 

80027670 

80027680 

80027690 

80027700 

80027710 

80027720 

80027730 

8002 7740 

80027750 

80027760 

80027770 

80027780 

80027790 

80027800 

80027810 

60027820 

80027830 

80027840 

8C027850 

800278o0 

80027870 



ODCA 
ODCC 
ODCD 
ODCF 
0OD1 
0DD2 
0DD4 
0DG5 
0DD7 
0DD9 
OODB 
ODOC 
ODDE 
ODDF 
ODEO 
0DE1 
0DE2 
ODE 3 
ODES 
0DE6 
ODES 

0DE9 
ODEB 
ODED 
OOEE 
ODEF 
ODFO 
0DF2 
0DF4 
0DF6 
0DF7 
0DF9 
ODFA 
OOFC 
ODFE 
OEOO 
3E02 
0E04 
0E05 
0E07 
0E08 
0E09 
OEOA 
OEOB 
OEOD 
OEOE 
0E10 

0E11 
0E13 
0E15 
0E16 
0E18 
0E1A 
OEIC 
0E1D 
0E1F 
0E20 
0E22 
0E24 
0E26 
0u28 
0E2A 
0E2B 
0E20 
0E2E 
0E2F 



00 6D000EBA 

2812 

00 4C180DD2 

00 44000F65 

0281 

00 44000F7C 

70F0 

00 C4000EBA 

00 4C180D0C 

00 44000F65 

0282 

00 44000F7C 

70E6 

2000 

4802 

7001 

7006 

00 44000F65 

0335 

00 44000F7C 

70DC 



00 65800EC3 
00 CCOOOECO 
2000 
1140 
2818 
00 F4000EC2 
00 4C180DF7 
00 44000F65 
C 0283 
00 44000F7C 
70EF 
00 6D000EBA 
00 C4000EBA 
00 F4000ECA 
00 4C10E05 
00 44000F65 
0284 
00 44000F7C 
70E1 
2000 
480' 
7003 
00 4C000F65 
0336 
00 44000F7C 
70D8 

00 65800EC1 
00 CCO0OEC2 
1140 
00 F4000EC2 
00 4C180E1D 
00 44000F65 
0285 
00 4'«000F7C 
70F 1 
OC 6D000E3A 
00 C4000EBA 
00 F4000EC1 
00 4C180E2B 
00 44000F65 
0286 
00 44000F7C 
70E3 
6110 
6210 



P880 
G883 



P882 
G382 

G881 



G883 



STX 
STS 

BSC 

BSI 

DC 

8SI 

MOX 

LD 

BSC 

as! 

DC 

BSI 

MDX 

LDS 

BSC 

MDX 

MOX 

BSI 

OC 

BSI 

MDX 



LI N380 

G881 
L G880.+- 
L FOOO 

/0281 
L F005 

A880 
L N880 
L G882.+- 
L FOOO 

/0282 
L F005 

A880 



C 

G883 

A884 
L FOOO 

/335 
L F005 

A880 



ACC NOT=ZERO 
*ERROR 231 
CHECK LOOP SWITCH 
LOOP 



IX 1 f:OT=ZERO 

♦ERROR 232 

CHECK LOOP SWITCH 

LOOP 

CK STATUS 



CARRY ON (SHOULD NCT1 
* ERROR 335 



******************** 
A884 LDX II N887 

LDD 

LDS 

SLCA 

STS 



************************* 



P884 
G384 



P886 
G866 

G885 



G887 



EOR 

BSC 

BSI 

DC 

BSI 

MOX 

STX 

LD 

EOR 

asc 

BSI 

OC 

BSI 

M"X 

LDS 

3SC 

MDX 

BSC 

DC 

BSI 

MDX 



L N884 


1 

G885 
L N886 
L G884.+- 
L FOOO 

/0283 
L F005 

A884 
LI N880 



N880 

N88E 

086b,*- 

FOOO 

/02 84 

F005 

A884 



C 

G887 

FOOO 

/336 

F00 c . 

A884 



ACC N0T=30' 

♦ERROR 283 

CHECK LOOP SWITCH 

LOOP 



IX-l NOT FFC1 

♦ERROR 284 

CHECK LOOP SWITCH 

LOOP 



CARRY OFF ( SHCULD B ON* 
* ERROR 336 



********************************************* 
A888 LDX II N885 

LDD L N886 

SLCA 1 

EOR 



P888 
G883 



P88A 

G8 8A 

A889 



SSC 

BSI 

DC 

BSI 

MDX 

STX 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LDX 

LDX 



L N686 
L G888.+- 
L FOOO 

/0285 
L F005 

A888 
LI N880 



N880 

N885 

G88A.+- 

FOOO 

/0286 

F005 

A888 

16 

16 



ACC NOT=8000 
♦ERROR 285 
CHECK LOOP SWITCH 
L00-> 



IX 1 NOT=0010 
♦ERROR 286 
CHECK LOOP SWITCH 
LOOP 



80O27830 
80027890 
8002 7900 
80027910 
80027920 
80027930 
80O27940 
80O27950 
80027960 
80O27970 
3002Y980 
8002 7990 
3OO28C00 
80028010 
80028020 
80028030 
80028040 
80O28050 
80028060 
80028070 
80028080 
80028090 
80028100 
30028110 
80O28120 
8OO28130 
80028140 
80028150 
8OO28160 
80028170 
°0O28180 
90O2819O 
80028200 
80028210 
80028220 
80028230 
80O28240 
30028250 
30028260 
30028270 
80028280 
80028290 
80028300 
80O28310 
80028320 
80028330 
80028340 
30028350 
80O28360 
30028370 
80028380 
30026390 
80028400 
80028410 
80028420 
80028430 
80028440 
80028450 
80028460 
80028470 
80028480 
80028490 
O0028500 
30028510 
80028520 
30028530 
90028540 
80028550 



DATE 
EC NO. 



28FEB66 
415120 



29JUN66 
41 5I75A 



04N0V66 
415233 



I 5FEB67 
4I5233B 



PROG ID 
PAGE 



0800-1 
2i 



OATE 28FER66 29JUN66 04NOV66 I5FEB67 
EC NO. 415120 4I5I75A 415233 4I5233B 



PR06 ID 
PAGE 



0800-1 
21A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
OP COOES SECTION 



PART NO. 2183266 
PAGE 22 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIAGNOSTIC MONITCR HEADER PROGRAM (CARD) 
OP CCOES SECTION 



PART NO. 
PAGE 



2183266 
22A 



0E30 
0E31 00 
0E33 
0E34 00 
0E36 00 
0E38 00 
0E3A 
0E33 00 
0E3D 



0E3E 
0E3F 
0E40 
0E41 00 
0E43 
0E44 00 
0E46 00 
0E43 
0E49 00 
0E4B 



6310 

C4000EC0 

1041 

F4000EC7 

4C180E3B 

44000F65 

0337 

44000F7C 

70F0 

6110 

6210 

6310 

CCOOOEBE 

10CF 

F4000ECB 

4C180E49 

0338 

44000F7C 

70F2 



0E4C 
0E4E 
0E4F 
0E50 
0E52 
0E54 
0E55 
0E57 
0E58 
0E59 
0E5B 
0E5D 
0E5E 
0E60 
0E61 
0E62 
0E63 
0E65 
0E67 
0E68 
0E6, 

0E6B 
0E6D 
0E6E 
0E6F 
0E70 
0E72 
0E74 
0E75 
0E77 
0E78 
0E79 
0E7B 
0E7D 
0E7E 
0E80 
0E81 
0E82 
0E83 
0E85 
0E87 
0E89 
0E3A 
0E8C 



00 65800EC8 
C875 
11C0 
00 4C180E55 
00 44C00F65 

0237 

44000F7C 

70F4 

1800 

4C180E5E 

44000F65 

0288 
00 44000F7C 
70EB 

6958 

C057 

4C180E68 
00 44000F65 
0289 
00 44000F7C 
70E1 





00 





00 

00 







00 



00 65800EC9 

C858 

UCO 

F052 

00 4C180E75 

00 ^4000F65 

028A 

00 44000F7C 

70F3 

1300 

00 4C180E7E 

00 44000F65 

0286 

00 44000F7C 

70EA 

6938 

C037 

00 F4000ECA 

00 4C180E8A 

00 44000F65 

028C 

00 44000F7C 

700E 



G889 



LDX 

LD 

SLCA 

EOR 

3SC 

BSI 

DC 

BSI 

MOX 



lft 

N884 

1 

N883 

G889,*- 

FOOO 

/337 

F005 

A889 



NON INDEXED SLCA FAILED 
♦ ERROR 337 



********************************************* 
A88A LDX 1 16 



G88B 



LDX 

LDX 

LDD 

SLC 

EOR 

BSC 

OC 

BSI 

MOX 



16 
16 

N882 

15 

N88F 

G88B f +- 

/338 

F005 

A88A 



NON INDEXED SLC FAIL D 
* ERROR 338 



***************************.******-;** ********* 
********************************************* 



A88C 



P88C 
G88C 



P88E 
G88E 



R880 
J880 



LDX 

LOD 

SLC 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

8SI 

MOX 

STX 

LD 

BSC 

BSI 

DC 

BSI 

MDX 



N88C 
N888 

G88C + - 

FOOO 

/0287 

F005 

A88C 

16 

G88E.+- 

FOOO 

/0238 

F005 

A88C 

N880 

N880 

J880,*- 

FOOO 

/0289 

F005 

A83C 



ACC NOT-0000 
♦ERROR 23 7 
CHECK LOOP SWITCH 
LOOP 



Q REG NOT=0000 
♦ERROR 233 
ChECK LOOP SWITCH 
LOOP 



IX 1 NOT=0000 
♦ERROR 239 
CHECK LODP SWITCH 
LOOP 



*******************< ************************* 
B882 LDX II N88D 



R882 
J882 



R884 
J8 84 



R886 
J866 



LDD 

SLC 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 

STX 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N83A 

N886 

J882.+- 

FOOO 

/028A 

F005 

B882 

16 

J884.+- 

FOOO 

/028B 

F005 

B882 

N860 

N880 

N88E 

J886t+- 

FOOO 

/028C 

F005 

B882 



ACC N0T=8000 
>CRR0R 23A 
CHECK LOOP SWITCH 
LOOP 



REG NOT=0000 
♦ERROR 23B 
CHECK LOOP SWITCH 
LOOP 



IX-l NOT FFC1 

♦ERROR 23C 

CHECK l^P SWITCH 

LOOP 



********************************************* 



DATE 
EC NO. 



28FEB66 
415120 



29JUN66 
4I5I75A 



04N0V66 
415233 



I5FEB67 
4I5733B 



80028560 
80028570 
80028580 
80028590 
80028600 
80028613 
80028620 
8002 8630 
8002 8640 
80028650 
80028660 
80028670 
80028680 
8002 8690 
8002 8700 
60028710 
80023 720 
30028730 
80028740 
80028750 
P002 8760 
8C028770 
30028780 
80028790 
80028800 
80028810 
80028820 
80028830 
80026840 
80026850 
80028360 
80028870 
80028880 
80028390 
-80028900 
80028910 
80028920 
80028930 
80028940 
80028950 
80028960 
8002 8970 
80028980 
8C028990 
8002 9000 
80029010 
80029020 
30029030 
80029040 
80029050 
80029060 
80029070 
80029080 
80029090 
80029100 
80029110 
80029120 
80029130 
80029140 
80029150 
80029160 
80029170 
80029180 
80029190 
80029200 
80029210 
30029220 
80029230 



PROG ID 
PAGE 



0800-1 
22 



0E8D 





C838 


B884 


LDD 




N88A 






80029240 




0E8E 





611F 




LDX 


1 


31 






80029250 




0E8F 





:ico 




SLC 


1 








80029260 




0E90 





4802 




BSC 




C 






80029270 




0E91 





7003 




MDX 




J887 






80029280 




0E92 


00 


44000 F6 5 




BSI 


L 


FOOO 


CARRY NOT ON 




80O2929O 




0E94 





0280 


R887 


DC 




/020D 


♦ERROR 280 




80029300 




0E95 


00 


44000F7C 


J887 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80029310 




0E97 





70F5 




MDX 




B884 


LOOP 




80029320 




0E98 





F029 




EOR 




N886 






80029330 




0E99 


00 


4C180E9E 




BSC 


L 


J688.+- 






80029340 




0E9B 


00 


44000F65 




BSI 


L 


FOOO 


ACC NOT EOIMI 8000 


80029350 




0E9D 





028E 


R888 


DC 




/028E 


♦ERROR 028E 




80O29360 




0E9E 


00 


44000F7C 


J888 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80029370 




OEAO 





70EC 




MDX 




B884 


LOOP 




80029300 




OEAl 


00 


6DC00EBA 




STX 


LI 


N880 






80029390 




0EA3 





C016 




LD 




N880 






80029400 




0EA4 





F01B 




EOR 




N884 






80029410 




0EA5 


00 


4C130EAA 




asc 


L 


J839.+- 






80O2942O 




0EA7 


00 


44000F65 




BSI 


L 


FOOO 


IX 1 NOT EQUAL 


0001 


8OO29430 




OEA«» 





028F 


R689 


DC 




/028F 


♦ERROR 028F 




80O29440 




OEAA 


00 


44000F7C 


J889 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80029*50 




OEAC 





70E0 




MDX 




B884 


LOOP 




80029*60 










********************************************* 


80029470 




OEAO 





611C 


B885 


LCX 


1 


28 






80029480 




OEAE 





C817 




LDD 




N88A 






80029490 




OEAF 





UCO 




SLC 


1 








80029500 




OEBO 





4802 




BSC 




C 






8OO29510 




0EB1 





7001 




MDX 




J88A 






80029520 




0EB2 





7003 




MDX 




J88B 






80029530 




0EB3 


00 


44000F65 


J88A 


BSI 


L 


FOOO 


CARRY IS O.i 




80029540 




0EB5 





0290 


R88A 


DC 




/0290 


♦ERROR 290 




£0029550 




0EB6 


10 


44000F7C 


J888 


BSI 


L 


F005 


CHECK LOOP SWITCH 


80O29560 




0EB8 





70F4 




MDX 




8885 


LOOP 




80029570 




0EB9 





7012 




MDX 




B8A0 






80029580 




0E8A 





0000 


N880 


OC 




/OOOO 






80029590 




OEBC 




0002 


N681 


BSS 


E 


2 






80029600 




OEBE 





000 . 


N882 


DC 




/OOOO 






80029610 




JEBF 





FFFF 


N883 


DC 




/FFFF 






80029620 




OECO 





0001 


N884 


DC 




/0001 






80029630 




0EC1 





O01O 


N885 


OC 




/0010 






30029640 




0EC2 





8000 


N886 


D" 




/8000 






80029650 




0EC3 





FFDO 


N887 


DC 




/FFDO 






80029660 




0EC4 





000" 


N888 


OC 




.0000 






80029670 




0EC5 





0000 


N889 


OC 




/COOO 






80029680 




0EC6 





0000 


N88A 


DC 




/OOOO 






8002 9690 




0EC7 





0002 


N88B 


DC 




/0002 






80029700 




0EC8 





0020 


N8 8C 


DC 




/OOiJ 






80029710 




0EC9 





FFDF 


N880 


OC 




/FFDF 






80029720 




OECA 





FF01 


N88E 


DC 




/FF01 






80029730 




OECB 





7FFF 


N88F 


DC 




/7FFF 






80029740 










*********************************>*********** 


6002 O750 










********************************************* 


30029760 










♦ 












80029770 










♦ 






TEST 


COMPARE INSTRUCTION 


80029780 










♦ 












80029790 




OECC 





1810 


B8A0 


SRA 




16 


CK FOR 1130 OR 


1800 


80029300 




OECO 


00 


04000001 




STO 


L 


/0001 






80029310 




OECF 





61FF 




LDX 


1 


-1 






80029620 




OEDO 


00 


C4000001 




LD 


L 


/0001 






80029830 




0ED2 


00 


4C200F5C 




BSC 


L 


W8C0.Z 


BRANCH IF 1130 




80029840 




0ED4 





C07B 




LD 




N8A2 






80029850 




0ED5 





8078 




CMP 




N8A0 


A GREATER THAN 


M 


80029860 




0E06 





7004 




MDX 




J8A0 






S0029870 




0ED7 





1000 




SLA 











80029880 




0ED8 


00 


44000F65 




BSI 


L 


FOOO 


A GREATER THAN 


M FAILED 


80029890 




OEDA 





0300 


P.8A0 


OC 




/0300 


♦ ERROR 03O0 




30029900 




OEDB 


00 


44000F7C 


J8A0 


BSI 


L 


F005 


CK LOOP 




80029910 




OATE 




28FEB66 


29*JUN56 04NOV66 iSFEB67 
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OEDO 





70EE 




MDX 




8 8A0 




80029920 




OEDE 





F071 




EOR 




N8A2 




80029930 




OEOF 


00 


4C180EE7 




BSC 


L 


B8A1,*- 




80029940 




0EE1 


00 


44000F65 




BSI 


L 


FOOO 


ACC CHANGED ERROR 


80029950 




0EE3 





0301 




DC 




/0301 


* ERROR 0301 


80029960 




0EE4 


00 


44000F7C 




BSI 


L 


FC05 


CK LOOP 


80029970 




0EE6 





70E5 




MDX 




B8A0 




80029980 










********************************************* 


80029990 




0EE7 





C066 


B8A1 


LO 




N8A0 


N8A0 = 0000 


80030000 




0EE8 





8066 




CMP 




N8A1 


N8A1 = 1000 


80030010 




0EE9 





7001 




MDK 




J8A2 


A LESS THAN M FAILED 


80030020 




OEEA 





7003 




MDX 




J8A1 




80030030 




OEEB 


00 


44000F65 


J8A2 


BSI 


L 


FOOO 


A LESS THAN M FAILED 


80030040 




OEED 





0?02 




DC 




/0302 


* ERROR 302 


O0030050 




OEEE 


00 


44000F7C 


J8A1 


BSI 


L 


F005 




80030060 




OEFO 





70F6 




MDX 




88A1 




80030070 










********************************************* 


8003P-O8O 




0EF1 





C05C 


B8A2 


LD 




N8A0 


N8A0 = OCOO 


80030090 




0EF2 





B05E 




CMP 




N3A3 


N8A3 = 2000 


80030100 




0EF3 





7001 




MDX 




J8A4 


A LESS THAN M FAILED 


80030110 




0EF4 





7003 




MDX 




J8A3 




80030120 




0EF5 


00 


44000F65 


J8A4 


BSI 


L 


FOOO 


A LESS THAN M FAILED 


80030130 




0EF7 





0303 




DC 




/303 


* ERROR 303 


80030140 




OEFR 


00 


44000F7C 


-3A3 


BSI 


L 


F005 




80030150 




OEFA 





70F6 




MDX 




B8A2 




80030160 










********************************************* 


80030170 




OEFB 





C052 


B8A3 


LD 




N8A0 


N3A0 = 0000 


80030180 




OEFC 


c 


B053 




CMP 




N8A2 


N8A2 = 40C0 


80030190 




OEFD 





7001 




MDX 




J8A6 


A LESS THAN M FAILED 


80030200 




OEFE 





7003 




MDX 




J8A5 




80030210 




OEFF 


00 


44000F65 


J8A6 


BSI 


L 


FOOO 


A LESS THAN M FAILED 


80030220 




0F01 





0304 




DC 




/304 


* ERROR 304 


80030230 




0F02 


00 


44000F7C 


J8A5 


BSI 


L 


F005 




80030240 




0F04 





70F6 




MDX 




B8A3 




80030250 










********************************************* 


80030260 




0F05 





C04C 


B8A4 


LD 




N8A4 




80030270 




OF06 





8047 




CMP 




N8A0 




80030280 




0F07 





7001 




MDX 




J8A8 


A LESS THAN M FAILED 


30030290 




0F08 





7003 




MDX 




J8A7 




80030300 




0F09 


00 


44000F65 


J8A8 


BSI 


L 


FOGO 


A LESS THAN M FAILED 


80030310 




OFOB 





0305 




DC 




/0305 


* ERROR 0305 


80030320 




OFOC 


00 


44000F7C 


J8A7 


BSI 


L 


F005 


CK LOOP 


10030330 




OFOF 





70F6 




MDX 




88A4 




80030340 










********************************************* 


8003035C 




OFOF 





C03F 


38A5 


LD 




N8A1 




80030360 




0F10 





t)03E 




CMP 




N8A1 




80030370 




0F11 





7002 




HDX 




J8AA 


A EQUAL M FAILED 


80030380 




0F12 





7001 




MDX 




J8AA 


A EQUAL M FAILED 


80030390 




0F13 





7003 




MDX 




J8A9 




80030400 




0F14 


00 


44000F65 


J8AA 


BSI 


L 


FOOO 




80030410 




0F16 





0306 




DC 




/C306 




80030420 




0F17 


00 


44000F7C 


J8A9 


BSI 


I 


F005 




80030430 




0F19 





70F5 




MDX 




B8A5 




80030440 










♦it****************************************** 


80030450 










* 










80030460 










* 






TEST 


DOUBLE COMPARE 


80030470 










* 










80030480 




0F1A 





C83B 


B8C0 


LDD 




NSC 6 




60030490 




0F15 





B838 




DCM 




N8C5 


A3 GREATER THAN M,M+ 


80030500 




0F1C 





7004 




MDX 




J8C0 




80030510 




0F1D 





1000 




SLA 









80030520 




OFIE 


00 


44000F65 




BSI 


L 


FOOO 




80030530 




0F20 





0307 




DC 




/0307 


* ERROR 307 


80030540 




0F21 


00 


44000F7C 


SCO 


3SI 


L 


F005 




80030550 




0F23 





70F6 




MDX 




B8C0 




80030560 




0F24 





F031 




EOR 




N6C6 




80030570 




OF25 


00 


4C180F2A 




BSC 


L 


J8C1.+- 




80030580 




0F27 


00 


44000F65 




BSI 


L 


FOOO 


ACC CHANGED 


80030590 
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0F29 
0F2A 00 
0F2C 
0F20 
0F2E 
0F2F 00 
0F31 00 
0F33 
0F34 00 
0F36 









0F37 
0F38 
0F39 
0F3A 



0308 

44000F7C 

70ED 

18D0 

F028 

4C180F34 

44000F65 

0309 

44000F7C 

70E3 

C820 
B821 
7001 
7003 



0F3B 00 44000F65 
0F3D 0310 
0F3E 00 44000F7C 
0F40 70F6 



0F41 
0F42 
0F43 
0F44 
0F45 
0F46 
0F48 
0F49 
0F4S 
0F4C 
0F4E 
0F4E 
0F4F 
OF50 
0F51 
OF52 
0F54 
0F54 
CF55 
0F56 
OF57 
0F58 
0F59 
0F5A 
0F5B 



C816 

B815 

7002 

7001 

7003 
00 44000F65 
0311 
00 44000F7C 
70F5 

7oor- 

0000 
0000 
1000 
4000 
2000 
8000 
0000 
800C 
0000 
3000 
C001 
0000 
8000 
OOOC 
8001 



0F5C 00 4C000028 



0F5E 
0F60 
CF62 
0F63 
0F64 



0F65 
0F66 
0F67 
0F68 
0F69 
0F6A 
0F6B 
0F6C 
0F6D 
0F6E 



000 3 
0002 
0F64 
0240 
0000 



0000 
DOOA 
1800 
D009 
COFB 
800F 
D0F9 
C005 
18D0 
C002 



DC 
J8C1 BSI 
MDX 
RTE 
EOR 
BSC 
BSI 
DC 
J8C2 BSI 
MDX 
********:* 

B8C1 LDD 
DCM 
MDX 
MDX 

J8C3 BSI 
DC 

J8C4 BSI 
MDX 

********** 

B8C2 LDD 
DCM 
MDX 
MDX 
MDX 
BSI 

oc 

BSI 

MDX 

MDX 

BSS 

DC 

DC 

DC 

DC 

DC 

BSS 

DC 

DC 

DC 

DC 

nc 

DC 
DC 
DC 
********** 
********** 
W8C0 BSC 



J8C5 



J8C6 



N8A0 
NBA1 
N8A2 
N8A3 
N8A4 

N8C5 

N8C6 

N8C7 

N8C8 



DC 
BZS 

DC 
DC 
DC 



Z020 

N8C0 

N8C1 

N8C2 

N8C3 

* 

* 

* 

********** 

********** 

FOOO DC 
STO 
RTE 
STO 
I.D 
A 

STO 
LD 
RTE 
LD 



/P308 

F005 

B8C0 

16 

N8C6*1 

J8C2.+- 

FOOC 

/0309 

F005 

B8C0 
************** 

N8C7 

N8C8 

J8C3 

J8C4 
L FOOO 

/0310 
L F005 

68CI 
************** 

N8C7 

N8C7 

J8C5 

J8C5 

J8C6 
L FOOO 

/311 
L F005 

68C2 

W8C0 
E 

/OOOO 

/iOOO 

/4000 

/2000 

/8000 
E 

/8000 

/OOOO 

/8000 

/0001 

/OOOO 

/8000 

/OOOO 

/8001 
************** 
************** 
L /002 

/0003 
E 2 

N8C3 

/0240 

/OOOO 



* ERROR 308 



9 REG CHANGED 
* ERROR 309 



********************* 
A,Q LESS THAN H, «t*l 

* ERROR 310 

********************* 
A,Q EQ M, M+l 

* ERROR 311 



********************* 
********************* 



ERROR CONTROL SUB-ROUTINE 

*********************************** 
*********************************** 
/OOOO 

uooo 

16 

U001 

FOOO 

J006 

FOOO 

U001 

16 

UOOO 



SW 12 IS OFF-WAIT 



800306.00 
80030)610 
8003G620 
80030*30 
80030*40 
80030650 
80030A60 
80030670 
80030*80 
BOOSO^O 
8003 OTOO 
80030710 
800307.20 
80030730 
800301*0 
8003075© 
80030760 
8003O77© 
80030780 
80030790 
80030*800 
8003OS1G 
80030820 
80030830 
8003GS40 
80030850 
800308*0 
80030870 
80030380 
80030890 
80030*00 
8G03C910 
80030920 
8003093© 
800309*0 
80030950 
80030960 
8003Q970 
8003Q980 
8003G990 
8003 IOOO 
8003101© 
8003 IQ2© 
80031030 
800310*0 
80031050 
8003 106© 
80031070 
8003 1 080 
800310"?© 
8003 HO© 
8003 1UO 
8003112© 
80031130 
800311*0 
8003 1150 
80031 l&C 
80031170 
80031180 
8003 1190 
80031200 
8003121© 
8003122© 
8J03123O 
800312*© 
8003125© 
8003126© 
8003127© 
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0F6F 





3084 


F002 


DC 


/30B4 


0F7O 





70FE 




NOX 


F002 


0F71 





0000 


UOOO 


OC 


/OOOO 


0F72 





0000 


UOOl 


DC 


/OOOO 


0F74 




0002 


U002 


BSS E 2 


0F76 





0F7B 


roo3 


DC 


ZOOO 


0F77 





0240 


F004 


DC 


/0240 


0F78 





3000 


U003 


DC 


/3000 


OF 79 





0002 


U004 


DC 


/0002 


0F7A 





0001 


U006 


DC 


/0001 


0F7B 





0000 


ZOOO 

* 


DC 


/OOOO 

t 








* 








**********♦********> 


0F7C 





0000 


F005 


DC 


/OOOO 


0F7D 





DOOE 




STO 


U008 


0F7E 





18D0 




RTE 


16 


0F7F 





GOOD 




STO 


U009 


0F80 





COFB 




LD 


F005 


0F81 





8006 




A 


U005 


0F82 





D0F9 




STO 


F005 


0F83 





C009 


S 008 


LD 


U009 


0FE4 





18D0 




RTE 


16 


OF85 





C006 




LD 


UC08 


0F86 


00 


4CB00F7C 




BSC 


I F005 


0F88 





0001 


U005 


OC 


/0001 


0F8A 




0002 


U007 


BSS 1 


E 2 


0F8C 





0000 


U008 


DC 


/OOOO 


0F8D 





0000 


U009 


DC 


/OOOO 


0F8E 





OF90 


F006 


DC 


Z001 


0F8F 





0240 


F007 


DC 


/0240 


0F90 





0000 


Z001 


OC 


/OOOO 


0F92 




012C 




END 


A080 



CHECK BIT SWITCH 13-LOOP 



SWITCH 1? IS OFF 



SWITCH 13 IS ON 



8003161 



80031280 
80031290 
80031300 
80031310 
80031320 
80031330 
80031340 
80031350 
80031360 
80031370 
80031330 
80031390 
80031400 
H0031410 
80031420 
80031430 
80031440 
80O314p0 
80031460 
80031470 
80031480 
80031490 
8C031500 
80031510 
80031520 
80031530 
80031540 
80031550 
80031560 
80031570 
80031580 
80031590 
80031600 
80031610 
80031620 
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DATE 28FEB66 29JUN66 04NOV66 I5FEB67 
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SYMBOL 


VALUE 


AOCO 


0130 


A080 


012C 


A1C0 


01E9 


A1D0 


01F3 


A1F.0 


0212 


A1F0 


021E 


A100 


014A 


A140 


0152 


A180 


019E 


A2CC 


0323 


A2C0 


0306 


A2C8 


0319 


A200 


022B 


A240 


026E 


A280 


02C6 


A281 


02D0 


A282 


02DB 


A283 


02E6 


A284 


02F1 


A3C0 


03CC 


A3C4 


03E3 


A300 


0333 


A304 


0347 


A340 


0357 


A38C 


03AC 


A380 


0370 


A384 


0385 


A388 


0398 


A4CC 


0595 


A4C0 


054F 


A4C2 


055A 


A4C8 


057F 


A«00 


040 8 


A408 


042 9 


A44A 


04E° 


".440 


04AD 


A444 


04CA 


A480 


0532 


A482 


053E 


A5C0 


0734 


A5C4 


0748 


A5C8 


0761 


A50A 


05E9 


A50C 


0604 


A50E 


0618 


A500 


05B1 


A502 


05BC 


A504 


05C7 


A508 


050E 


A54A 


06A7 


A54C 


06B9 


A54E 


06CB 


A54F 


06DD 


A540 


0649 


A 544 


0660 


A546 


0682 


A548 


0695 


A580 


06F4 


A 5 84 


0706 


A588 


071A 


A6C0 


0940 


A6C2 


0965 


A6C4 


0970 


A6C6 


0991 


A6C8 


09A6 


DATE 


28FEB66 


EC NO. 


415120 



REFERENCES 

0138 

0F91 

01E7 

01F0 

020E 

021B 



019C 
0320 

02FF,030F,0318 
0322 
0227 
0269 

0289,02B1,02CF 
02DA 
02E5 
02F0 
02FE 

03C5,0308,03E2 
03F6.03FF 
032E,033C,0346 
0351 

0352, 0362, 036C 
03BA,03C4 
036D,037A,C384 
038E.0397 
03Al,03AB 
05A1.05AA 
,548,0559 

055A,055D,C56B,05 74,057E 
0586,0594 

0400 ,0415, 04 lu, 0428 
0435, 043D, 0446 
04F5,04FE,G508 
04A6,O4B8,0hCC,04C9 
04D6,04DF,04E3 
052B.053D 
054A 

072C,073t,0747 
0756,0760 
0770, 077A 
05F4.05FA 
05FB, 0610,0616 
0623, 062A 
O5AB.05BB 
05C6 

05D2.05DD 
05E8 

069F,06BO,06B8 
06Bl,0 6C2,C6CA 
06C 3,0604, 060C 
06D5,06E6,06EE 
063A,0641,CS5 5,06 5C,066C 
0656,065D,067 3,06 7F 
0679,0 680,06 80,06 94 
068E,069E,06A6 
06E7,0fcfcF,GoFC,0705 
070F.0719 
0722,0728 

093C, 0943, 09 50,. "'964 
095E.0975.097C 
0976,0990 
09A5 
09B6,09BD,09CF 
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2183266 
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A6D0 


09D0 


096E.OSOB 


A6D2 


09 DC 


09E7 


A6D3 


09E8 


09F3 


A6U5 


09P4 


09FF 


A6D6 


OAOO 


OAOB 


A6F0 


OAOC 


0A1A 


A6F1 


0A1D 


0A1B.OA28 


A60A 


07C1 


07C0 


A60C 


07CE 


07DA 


A60E 


07DB 


07E7 


A600 


0789 


077E.0791 


A602 


0792 


079A 


A604 


079B 


07A6 


A606 


07A7 


0783 


A608 


07B4 


07C0 


A6<.A 


0854 


0861 


A64C 


0362 


086F 


A640 


080B 


0804, 081E 


A642 


081F 


082B 


A644 


082C 


0838 


A646 


0839 


0845 


A648 


0846 


08 r 3 


A660 


0877 


0872, 0884, 08°E 


A662 


088F 


089C.0 8A6 


A664 


08A7 


08B4.0SBE 


A670 


08C1 


08BF,08CA,0801 


A63C 


0910 


09iA,0923 


A680 


08D4 


08CB,08DF,08E8 


A684 


08E9 


03F3,0£F8 


A6S8 


08FC 


0905, 090F 


A7CC 


0C26 


0C2F.0C33 


A7C0 


03EA 


0BD9,0BF4,06FE 


A7C4 


OBFF 


0C03.0C12 


A7C8 


0C13 


0C1C.0C25 


A70C 


0A71 


0A70,0A8B,0A92 


A700 


0A2C 


0A38.0A42 


A704 


0A43 


0A4F.0A59 


A708 


0A5A 


0A66.0A70 


A74A 


0AE3 


OAFO 


A74C 


0AF8 


0604, OBOE. 0B1A.0B21 


A740 


0A9C 


0A3C,0 49 3,0AAC,0AB7,0AC3,0ACA 


A746 


OACB 


0AD9,OAE2,OAF7 


A78E 


08C5 


0BCE.0308 


A780 


0B72 


0861,0 376,038 8, 03 94, OB 98 


A786 


089C 


0BA6,03B0,033A,03C4 


A80C 


0C9B 


0C94.0CA5 


A80E 


0CA6 


OCBO 


A800 


0C41 


0C39,0C51,OC5C,0C68,0C6F 


A806 


OC70 


OC69,0C7D,0C8 8,OC93,0C9A 


A84A 


00A7 


OOBO 


A840 


004B 


0058 


A842 


0D59 


00 60 


A844 


0D6E 


00 7C 


A846 


0D7D 


0086 


A848 


OD87 


0090 


A849 


0091 


0DA6 


A85A 


0DB1 


0039 


A88A 


0E3E 


06 4B 


A88C 


0E4C 


OF57.0E60.0E6A 


A380 


one 5 


Ol)BA,0004,O00E,00E8 


A884 


0DE9 


ODE2,OOF9,GE07,OfclO 


A888 


0E11 


0E!F,0£2D 


A889 


0E2E 


OciO 


A900 


0280 




B40A 


0484 


0494.049C04A5 


B400 


044 7 


0452,0453,0464 


B406 


0465 


0471, 047A, 0483 


B440 


0509 


0519, 0521, 052A 
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B500 


062B 


B600 


07E8 


B602 


07F6 


B680 


0924 


B742 


0822 


B747 


0B4C 


B8A0 


OECC 


B8A1 


0EE7 


B8A2 


0EF1 


B8A3 


OEFB 


B8A4 


0F05 


88A5 


OFOF 


B8C0 


0F1A 


B8C1 


0F37 


B8C2 


0F41 


B800 


OCBl 


B802 


OCBC 


B804 


0CC7 


3806 


OC02 


B807 


0004 


B808 


ODCF 


B809 


0D1A 


B810 


0026 


B882 


0E6B 


B884 


0E8D 


B885 


OEAD 


FOOO 


0F6 5 



F002 


0F6F 


F003 


0F76 


F004 


0F77 


F005 


0F7C 



,0938,0942 
,0338, OB ',4,08 48 
,0860 

,0ECD,0EE6 
,0EF0 



0624,0639,0640 

07F5 

0803 

092F 

0B2E 

0856 

0EB9 

OEOF 

06FA 

0F04 

OFOE 

0F19 

0F23.0F2C0F36 

0F40 

0F4B 

OCBB 

0CC6 

OCOl 

OCDC 

OCOO.ODOE 

0019 

0D25 



0E77, 

0E97, 

0EB8 

02CA, 

0341, 

03B5, 

0438, 

'.4A0, 

0514, 

0586, 

05F5, 

0667, 

06C5, 

0726, 

07AE, 

0833, 

08B9, 

092A, 

09A0, 

0A33, 

0AB2, 

0B1C, 

0B96, 

OCOD, 

0C83, 

0014, 

0D9A, 

0E1A, 

0E9B, 

OF IE, 

OF 7 



0E80, 
OEAO, 

02D5, 

034C, 

33F, 

0441, 

0483 

051C, 

058F, 

0600, 

0673, 

06CF 

0739, 

073B, 

840, 

8CC, 

093o, 

0931, 

0A30, 

OABE, 

0B29, 

0BA1 

0C17, 

0C8E. 

0020, 

00A1 

0E28, 

0EA7, 

0F27, 



0E8C 
OEAC 

02E0, 

0350, 

0303 

044D 

04BB, 

0525, 

05 9C, 

060 3, 

067A, 

060 7, 

0742 

07C3 

C84E 

08DA, 

0930, 

09B8, 

0A4A, 

0AC5, 

0633, 

03AB, 

0C20, 

0C95, 

003 2, 

ODAB 

OE38, 

0E33, 

OF 31 



02EB,02F9 
0367,0375 
030D.03F1 
04 56,045F 
04C4.04D1 
0538,0545 
05A5.05B6 
C611.061E 
0638,06 3F 
06Ei,0oE9 
0751,0753 
0705, 07E2 
035C086A 
08E3,08Et 
0958, 095F 
0906, 09F? 
0A54.0A61 
0AD4.0AD0 
0B3F.0B46 
0385, ~36F 
0C2A.0C33 
OCAO.OCAB 
O.T 36,0053 
0DB4.0DCF 
OE 52, OF 53 
OEDS.OEU 
0F3B.0F46 



,030A 
,037F 
,03FA 
,046C 
,040A 
,0554 
,05C1 
,0625 
,0699 
,06F7 
,076B 
,07F0 
,087F 
,06F6 
,0970 
,09EE 
,0A63 
,OAEB 
,0B51 
,0BC9 
, 0C4C 
,0C66 
,0D5F 
,0009 
,0E65 
,0EE8 
,0F69 



,0313 
,0389 
,0410 
,0475 
,04E3 
,0560 
,05CD 
,06 34 
,06A1 
,0700 
,0775 
,07FE 
,068 9 
,0901 
,0977 
,09FA 
,0A73 
,0AF2 
,0356 
,0fiD3 
,0C57 
,0CC1 
,0066 
,GDt3 
,GE72 
,OtF r 
,0F66 



,0310 
,0392 
,04J8 
,0V7E 
,04F0 
,0566 
,0503 
,0633 
,06A3 
,070A 
,078C 
,0812 
,0397 
,090A 
.0967 
,0A06 
,0A86 
,OAFF 
,0379 
,03EF 
,0C63 
,OCCC 
,0077 
,00F4 
,0E7B 
,OEFF 



,0328, 

,039C, 

,0423, 

,048F 

,04F9, 

, 056F, 

.05E3, 

,0o50, 

,0633, 

,0714, 

,0795, 

,0819, 

,08A1 

,0915, 

,0983, 

,0A15, 

,0A3D, 

,0809, 

,0383, 

,06F ', 

,CC6A, 

,0C07, 

,0081, 

,0E02, 

,0E87, 

,0F09 



0337, 
03A6, 
0430, 
0497, 
0503, 
0579, 
05EF, 
0657, 
0680, 
071D, 
07A1, 
0326, 
08AF, 
091E, 
099C, 
0A26, 
0AA7, 
0B15, 
038F, 
0C03, 
0C78, 
0009, 
008B, 
0E03, 
0E92, 
0F14, 



0293.02A1 
02CD.0208 
0344, 034F 
03B8.O3C2 
043B.0444 
04A3,04B6 
0517, 051F 
0592, 059F 
060E ,0614 
367D.0688 
D6DA,06E4 
0745,0 754 
37CB.07D8 



,02E3, 
,0360, 
,0306, 
.CK-50, 
,04BE, 
,052e, 
,05A8, 
,0621, 
,0692, 
,06EC, 
,075E, 
,07E5, 



02EE 

03 6A 
03E0 

04 59 
04C7 
0536 
05B9 
0628 
069C 
06FA 
076E 
07F3 



,02FC 
,0373 
,03F4 
,0462 
,0404 
,0543 
,05C4 
,06^7 
,06A4 
,0703 
,07 73 
,0801 



,030D 
,0382 
,03F0 
, 046F 
,0400 
,0557 
,0500 
,063E 
,06AE 
,0700 
,078F 
,081C 



,f316 
,03 3C 
,0413 
,0478 
,04E6 
,0569 
,0508 
,0653 
,0636 
,0717 
,0798 
.0829 



,0320 
,0395 
,0416 
,0481 
,04F3 
,0572 
,05E6 
,065A 
,06CO 
,0720 
,07A4 
,0836 



,032B, 
,039F, 
,0426, 
,0492, 
,04FC, 
.057C, 
,05F2, 
,066A, 
,06C8, 
,0/29, 
,07B1. 
,0843, 



033A, 
03A9, 
C433, 
04°A, 
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05F8, 
0676, 
06D2, 
C73C, 
07BE, 
0851, 
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F006 


0F8E 


F007 


0F8F 


F008 


0F83 


F901 


02B6 


F902 


02B8 


F903 


02 69 


F904 


02BA 


F905 


02BB 


F911 


02BC 


F912 


02BD 


F913 


02BE 


F914 


02EF 


F915 


02C0 


F916 


02CI 


F917 


02C2 


F918 


02C3 


F919 


02C4 


F920 


02C5 


GOCO 


014f 


G0C1 


0142 


G0C2 


0145 


GOCO 


012E 


G081 


0131 


G082 


0136 


G083 


0138 


G084 


0139 


G14A 


017F 


G14. 


0183 


C14C 


0187 


G14D 


018B 


G14E 


018F 


G14F 


0193 


G140 


0158 


G141 


015B 


G142 


015F 


G143 


0163 


G144 


0167 


G145 


016B 


G146 


016F 


G147 


0173 


G148 


0177 


G149 


017B 


G150 


0197 


G18A 


01CE 


GI86 


01D2 


G18C 


01D6 


G18D 


01DA 


G18E 


01DE 


G18F 


01E2 


G181 


01AA 


G182 


01AE 


G183 


0132 


G184 


01B6 


DATE 
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08 5F, 

0300, 
0940 • 
09E5, 
0A64, 
OAcO, 
0349, 
0BC2, 
0C36, 
OCAE, 
0D56, 
ODE 6, 
0E68, 
OEES, 
OF 80, 



86D, 
08E6, 
095B, 
09F1, 
0A6E, 
OAEE, 
654, 
OBCC, 
0C4F, 
0CB9, 
0D6B, 
0DF7, 
0E75, 
0EF8, 
OF82, 



0882, 
08FI, 
0962, 
09FD, 
0A7B, 
OAF 5, 
0B5E, 
0BD6, 
0C5A, 
0CC4, 
007A, 
0E05, 
0E7E, 
0F02, 
OF 86 



08 ^C, 
08F9, 
0973, 
0A09, 
0A89, 
0B02, 
0B7C, 
0BF2, 
0C66, 
OCCF, 
0084, 
OEOe, 
0E8A, 
OFOC, 



089A.08A4 
0904,0900 
C97A.098E 
0A16,0A29 
0A90.0AAA 
0BOC0B18 
0686,0692 
08FC0C06 
&C6D,0C7B 
CCOA.ODOC 
008E ,0OA4 
0E1D.0E2B 
0E95,OE9E 
OF17.0F21 



,08B2 
,0918 
,09A3 
,0A36 
,0AB5 
,081F 
,0899 
,0C10 
,0C86 
,0017 
,0OAE 
,0E3B 
,0EAA 
,0F2A 



,08BC 

,0921, 

,09B4, 

,0A40, 

,OACi, 

,0B2C, 

,0BA4, 

,0C1A, 

,0C91, 

,0023, 

,0087, 

,0E49, 

,0EB6, 

,0F34, 



08C8, 
092D, 
09BB, 
0A40, 
0AC8, 
0836, 
OBAE , 
0C23, 
0C98, 
0035, 
OD02, 
0E55, 
OFOB, 
0F3E, 



08CF, 

0939, 

09 D9, 

0A57, 

0AD7, 

0342, 

08B8, 

0C2D,. 

0CA3, 

003E, 

OODC, 

OEaE, 

0EE4, 

OF 49, 



029A.02A3 



02A6 

0295, 029E 
02BA 

02dO,0284 

0281, 0283, OLJC 

0282 

02A5 

02A8 

028A,02AB 

02A7.02B8 

0287,0288 

0294 

029D 

013F 
0143 
012C 
012E 
0131 
0139 
0136 
017D 
0181 
0185 
0189 
0180 
0191 
0156 
0159 
01 50 
0161 
0165 
0169 
016D 
0171 
0175 
0179 
0195 
01CC 
01 DO 
0104 
01D8 
01DC 
01.0 
01A8 
01AC 
01B0 
01B4 
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G185 


01BA 


01B8 


G186 


01BE 


01BC 


G187 


01C2 


01CO 


G188 


01C6 


01C4 


G189 


01CA 


01C8 


G2CC 


032B 


0326 


G2C0 


030D 


0308 


G2v,4 


0316 


0311 


G2C8 


0320 


031B 


G20A 


025B 


0257 


G20B 


0265 


0263 


G20C 


0269 


0260 


G20D 


0260 


025E 


G200 


022F 


022B 


G201 


0234 


0230 


G202 


0238 


0234 


G203 


023C 


0233 


G204 


0240 


023E 


G205 


0245 


0241 


G206 


024D 


C243 


G207 


0252 


0250 


G208 


0249 


0245 


G209 


0256 


0254 


G280 


02CD 


02C8 


G281 


0208 


0203 


G282 


02E3 


02DE 


G283 


02EE 


02E9 


G284 


02FC 


02F7 


G3C3 


03D6 


03D1 


G3C2 


03E0 


03D8 


G3C4 


03F4 


03EF 


G3C6 


03FD 


03Fe 


G300 


033A 


0335 


G302 


0344 


033F 


G304 


034F 


034A 


GS.40 


0360 


0353 


G342 


036A 


0365 


G38A 


03A 


03A4 


~38C 


03B8 


0333 


G38E 


03C2 


03BD 


G3P.0 


0378 


0373 


G382 


0382 


037D 


G384 


038C 


0387 


G386 


039 K 


0390 


G388 


039F 


039A 


G4CA 


0592 


0580 


G4CC 


059F 


059A 


G4C0 


05A8 


05A3 


G4C0 


0557 


0552 


G4C2 


0569 


0565 


G4C4 


0572 


056E 


G4C6 


057C 


0577 


G4C8 


0589 


0584 


G40C 


0433 


042E 


G40E 


0444 


043F 


G400 


041B 


0416 


G404 


0413 


040E 


G406 


0426 


0421 


G408 


043B 


0436 


G44A 


04FC 


04F7 


G44C 


04FO 


04ED 


G44D 


04F3 


04EF 


G44E 


0506 


0501 


G440 


04BE 


04B9 


G442 


04B6 


04B1 


G443 


04C7 


04C2 


G444 


04DD 


0408 


G446 


0401 


04CE 
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G447 


04D4 


04D0 




G448 


04E6 


04E1 




G480 


053B 


0536 




G482 


0548 


0543 




G5CA 


0778 


0773 




G5C0 


073C 


T 37 




C5C2 


0745 


0740 




G5C4 


0754 


074F 




G5C6 


075E 


0759 




G5C8 


076E 


0769 




G50A 


05FC 


05EB 




G50C 


060A 


0606 




G50E 


061E 


061A 




G500 


05B9 


05B5 




G502 


05C4 


05CG 




G504 


05CD 


05Cb 




G505 


0500 


05CC 




G506 


0508 


05D6 




G507 


05D6 


05D7 




G508 


05E3 


05E1 




G54A 


06B2 


06A8 




G54C 


06C4 


06BA 




G54E 


06D6 


06CC 




G54F 


06E8 


O^DE 




G540 


065E 


064C 




G542 


066A 


0665 




G544 


0681 


066F 




G546 


0687 


0683 




G548 


06A0 


0o96 




G58A 


0729 


0724 




G580 


06FA 


06F5 




G582 


0703 


06FE 




G534 


070D 


0708 




G586 


0717 


0712 




G588 


0720 


071P 




G6C0 


0962 


0956 




G6C2 


097A 


096E 




G6C4 


098E 


0985. 098A 




G6C6 


09A3 


099A.099F 




G6C8 


0966 


09AF.09B7 




G60A 


07CB 


07C6 




G60C 


07D8 


07D3 




Oi>re 


07E5 


07EO 




G600 


078C 


0789 




G602 


0795 


0792 




G604 


07A4 


079F 




G606 


0761 


07AC 




G608 


07BE 


07B9 




G64A 


085F 


085A 




G64C 


0860 


0868 




G640 


0815 . 


0810 




G641 


081C 


0817 




G642 


0829 


0324 




G644 


0836 


0831 




G646 


0843 


083E 




G648 


0851 


084C 




G6 60 


0882 


0870 




G66I 


088C 


0887 




G662 


089A 


0895 




G663 


08A4 


089F 




G664 


08B2 


08AD 




G665 


08BC 


08B7 




G670 


08CC 


08C3 




G671 


CSC 3 


" C7 




G672 


08C5 


0802 




G68A 


090D 


0908 




G68C 


0918 


0913 




G68E 


0921 


09 1C 
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G680 


08DA 


08D7 


G682 


08E6 


08EI 


G684 


08F1 


08EC 


G686 


08F9 


08F4 


G688 


0904 


08FF 


G7CA 


0C23 


0C1E 


G7CC 


0C2D 


0C28 


G7CE 


0C36 


0C31 


G7C0 


0BF2 


OBED 


G7C2 


OBFC 


0BF7 


G7C4 


0C06 


0C01 


G7C6 


0C10 


OCOB 


G7C8 


0C1A 


0C15 


G70A 


0A6E 


0A69 


G70C 


0A7B 


0A76 


G70E 


0A90 


0A80 


G700 


0A36 


0A31 


G702 


0A40 


0A3B 


G704 


0A4D 


0A48 


G706 


0A57 


0A52 


G708 


0A64 


0A5F 


G74A 


OAF 5 


0AE7.0AF1 


G74C 


0302 


OAFD 


G74E 


OBOC 


0B07 


G740 


OAAA 


0AA5 


G742 


0AB5 


OABO 


G744 


0AC8 


0ABA.0AC4 


G746 


0AD7 


0AD2 


G748 


OAEO 


OAOB 


G78A 


0BB8 


08B3 


G78C 


0BC2 


OBBD 


G78E 


OBCC 


08C7 


G780 


0B7C 


0B77 


G78; 


0B86 


0B81 


G784 


0B99 


0B8B,0B95 


G786 


0BA4 


0B9F 


G788 


OBAE 


0BA9 


G80A 


0C°8 


0C8A 


G80C 


OCA 3 


0C9E 


G80E 


OCAE 


0CA9 


G800 


0C4F 


0C4A 


G80? 


0C5A 


0C55 


G804 


0C60 


0C5F 


G806 


0C7B 


0C76 


G808 


0C86 


0C81 


G84A 


ODAB 


0DA9 


G840 


0056 


0051 


G842 


0069 


0064 


G844 


0D7A 


0075 


G846 


008 1 


00 7F 


G848 


0D8B 


0089 


G849 


00A4 


0D9F 


G88A 


0E2B 


OE26 


G88B 


0E49 


0E46 


G88C 


0E55 


0E50 


G88E 


0E5E 


0C59 


G880 


0002 


ODCD 


G881 


OODF 


OOCC 


G882 


OODC 


00D7 


G883 


00E3 


OOEl 


G884 


00F7 


OOF 2 


G885 


0E08 


OOEF 


G886 


0E05 


OEOO 


0887 


OEOE 


OEOA 


G888 


0E1D 


0E18 


G8S9 


0E3B 


0E36 


G900 


02A5 


0290 


G901 


029D 


0293 
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H4C2 


0566 


0563 




H4C3 


0563 


055E 




H4C4 


056F 


056C 




H40A 


049A 


0495 




H40D 


0492 


0480 




H40E 


04A3 


049E 




H400 


0459 


0454 




H402 


0450 


044B 




H404 


0462 


0450 




H405 


G46F 


046B 




H406 


0478 


0473 




H407 


046C 


0469 




H408 


0481 


04 7C 




H440 


051F 


051A 




H443 


0517 


0512 




H444 


0528 


0523 




H50A 


05EF 


05ED 




H50B 


0600 


05FE 




H50C 


0608 


0608 




H50E 


0628 


061C 




H506 


05E6 


05E2 




H54A 


06B6 


06AA 




H54C 


06C8 


06BC 




H54E 


06DA 


06Ct 




H54F 


06EC 


06E0 
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0650 


064E 
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0673 
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068F 
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0981 
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09D4 




H6D2 


09E5 
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09F1 
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H6D5 


09FD 


09F8 
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0AO9 


0A04 




H6F0 
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0A13 
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032C 
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J746 
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0B4F 
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0EE8 


0EE9 


J8A3 


0EF8 


0EF4 


J3A4 


0EF5 
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J8A6 


OEFF 


OEFD 


J8A7 


OFOC 


0F08 
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OF09 


0F07 


J8A9 


0517 


0F13 


J SCO 


0F21 


0F1C 


J8C1 


0F2A 


0F25 


J8C? 


0F34 


0F2F 


J8C3 


0F3B 


OF 39 


J8C4 


0F3E 


0F3A 


J8C5 


0F46 


0F43,0F44 


J8C6 


0F49 


0F45 


J 800 


0CB9 


0CB4 


J802 


0CC4 


OCBF 


J803 


0CC1 




J 804 


OCCF 


OCCA 


J805 


OCCC 




J806 


OCOA 


0CD5 


J807 


0CP7 




J808 


ODOC 


0007 


J 809 


0D17 


0012 


J810 


0023 


0D1F 


J811 


0029 


0037,0040,0047 


J812 


0035 


0030 


J„13 


003E 


0D39 


J814 


0D27 


004A 


J815 


0D20 


0010 


J816 


0D41 


0044 


J88A 


0EB3 


OtBl 


J88B 


0EB6 


0EB2 


J 880 


0E68 


0E63 


J882 


0E75 


0E70 


J884 


0E7E 


0E79 


J886 


0E8A 


0b85 


J887 


0E95 


0E91 


J888 


0E9E 


0E99 


J889 


OEAA 


0EA5 


K50A 


05F8 


05FF.0603 


K50C 


0614 


060A 


K50E 


0621 




K500 


0637 




K540 


0653 




K640 


080F 


0874 


K682 


0930 


09 34 


K740 


0B1C 


OB 13 


K746 


0B46 


08 30 


K849 


0090 


0098 


L540 


065A 




MI0C3 


0282 


02AC 


NltO 


01F1 


01E9 


N1C1 


01F2 


01EC 


N1D0 


020F 


01F9,01FA,01FO,0205 


NIDI 


0210 


OIF?, 01F6, 0206 


N1D2 


0211 


0202,0 203 


DATE 


28FEB66 


29JUN66 04N0V66 I5I-EB67 


EC NO. 


415120 


4I5I75A 415233 4I5233B 



PROG 10 
PAGE 



0800-1 
28A 



I8M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD! 
OP COOES SECTION 



PART NO. 
PAGE 



2183266 
29 



IBM MAINTENANCE CIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIAGNOSTIC MONITCR HEADER PROGRAM ICARD) 
OP CODES SECTION 



PART NO. 2183266 
PAGE 29A 



N1E0 
N1E1 
N1F0 
N1F1 
N1F2 
N100 
N140 
N180 
N2C0 
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N301 
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N33? 
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0301 
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0405 
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03CB 
05AC 
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0580 
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052C 
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N6CC 
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N6F2 
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0ACC0B4C 


N747 
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0CA8,0CC9,0CD4,0D42 
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0CE8 


0CA7.0CB3 
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OCFO 


0CD3 


N811 


0CF1 


0C53 
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0CF2 


0C44,0C48,0C8E 
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MDX 


♦ -5 




80033100 




01D0 


00 


6700028A 




LDX 


L3 PRI01 




8C033110 




0102 


00 


6F000008 




STX 


L3 8 




80033120 




01D4 





082B 




XIO 


UMSKO 


UNMASK INTERRUPTS 


80033130 




0105 





082C 




XIO 


UMSK1 




80033140 




01D6 





082D 




XIO 


XIOCC 


ISSUE INTERRUPT 


80033150 




01D7 





100C 




NOP 






80033160 




01D8 





C01D 




LO 


RE3ST 


CK FOR PROPER NUMBER 


80033170 




0109 


G 


F01E 




EOR 


NSTCK 


♦OF REQUESTS 


80033180 




01 DA 





4820 




BSC 


I 


SKIP IF OK 


80033190 




01GB 





700a 




MDX 


EWAIT 




80033200 




01DC 





C01A 




LO 


SRVC 


CK FOR PROPER NUMBER 


80033210 




01DD 





F01A 




EOR 


NSTCK 


♦OF SERVICED INTRPS 


80033220 




01DE 





4820 




BSC 


Z 


SKIP IF COUNT OK 


80033230 




01DF 





7006 




MDX 


EWAIT 




30033240 




01E0 





72FF 




MDX 


2 -1 


SKIP IF ALL PASSES 


80033250 




01E1 





7006 




MDX 


REPET 




80033260 




01E2 





0819 




XIO 


MASKO 


MASK ALL LEVELS 


80033261 




01E3 





081A 




XIO 


MASKl 




80033262 




01E4 


00 


4C000028 




BSC 


L /0028 


RETURN TO LOADER 


P0033270 




01E6 





30B3 


EWAIT 


OC 


/30B3 


ERROR WAIT 


80033280 




01E7 


c 


70FF 




MDX 


♦ -1 




80033290 




01E8 


00 


4C00012F 


REPET 

♦ 
♦ 
♦ 


BSC 


L START+3 

♦ ♦ 


. REPEAT PROGRAM 
CONSTANTS ♦♦ 


80033300 
80033310 
80033320 
80033330 




O.EA 





0000 


SPVCK 


DC 





STORAGE PRUTCT LOC 


80033340 




01EB 





0000 


POLCK 


OC 





POLLING CK INDICATOR 


80033350 




01EC 





0208 


VCTOR 


DC 


PLINT 


INTRP XFER VECTOR 


80033360 




01ED 


c 


026A 


INLVL 


DC 


LVL25 


INTRP XFER VECTOR 


80033370 




01EE 





0000 


INTCK 


DC 





INTRNL INTRP CK SW 


80033380 




01EF 





0000 


MSKCK 


DC 





MASK REG CHECK SW 


80033390 




01F0 





0003 


THREE 


DC 


3 


CONSTANT 3 


80033400 




01F1 





COOB 


ELEVN 


DC 


11 


CONSTANT 11 


80033410 




01F2 





OOOC 


TWLVE 


DC 


12 


CONSTANT 12 


8003 3420 




01F3 





8000 


OCV 


DC 


/8000 


OP CODE VIOL ILSW 


80033430 




01F4 





2000 


SPV 


DC 


/2000 


STG PROTCT VIOL ILSW 


£,0033440 




01F5 





0000 


LVLC< 


DC 





LEVEL BEING CHECKED 


80033450 




01F6 





0000 


REQST 


DC 





NESTING CHECK INDCTR 


80033460 




01F7 





0000 


SRVC 


DC 





NESTING CHECK INDCTR 


80033470 




01F8 





OOOD 


NSTCK 


DC 


13 


NESTING CHECK CNSTNT 


80033480 




01F9 





03BF 


NSLVL 


DC 


PRI23 


NEST CHfTK INT VCTOR 


80033490 




01FA 





0000 


ILSCK 


DC 





INTERNAL ILSW 


80033500 




01FC 




0000 




BSS 


E 




80033510 




01FC 





FFFF 


MASKO 


DC 


/FFFF 


MASK HIGH IOCC 


60033520 




01FD 





0480 




OC 


/0480 




80033530 




01FE 





FFFF 


MASKl 


DC 


/FFFF 


MAjK LOW IOCC 


80033540 




01FF 





0481 




DC 


/0481 




80033550 




0200 





0000 


UMSKO 


OC 


/OOOO 


UNMASK HIGH IOCC 


80033560 




0201 





0480 




DC 


/0480 




80033570 




0202 





0000 


UMSK1 


DC 


/OOOO 


UNMASK LOW IOCC 


80033580 




0203 





0481 




DC 


,'0481 




80033590 




0204 





0010 


XIOCC 


DC 


/0010 


PROGRAM INTERRUPT 


80033600 




0205 





04A0 




DC 


. /04A0 


♦IOCC CONSTANT 


80033610 




0206 





0000 


ISINT 


DC 





ACTIVE PROGRAM 


80033620 




0207 





0000 




DC 





♦INTERRUPT IOCC 


80033630 




OATE 
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♦ 










80033640 










* 




** 


POLL CHECK INTERRUPT ** 




80033650 










• 




»* 


TRAP ROUTINE *♦ 




80033660 










* 










80033670 




0208 





0000 


PLINT 


DC 





INTERRUPT ENTRY 


IE 


80033680 




0209 


00 


0C000238 




XIO L 


ILSW 


SENSE ILSW 




80033690 




020B 





4820 




BSC 


Z 






80033700 




020C 





7007 




MDX 


ERROR 


BRANCH ON ILSW NOT 




80033710 




020D 





COFA 




ID 


PLINT 


GET I COUNT ON INTRP 




80033720 




020E 


00 


740OO1EB 




MDX L 


POLCK.O 


SKIP IF XIO CHECK 




80033730 




0210 





7002 




MDX 


PL!N1 






80033740 




0211 





F008 




EOR 


XIOCK 


CK FOR PROPER I CNT 




80033750 




0212 





7001 




MDX 


♦ ♦1 






80033760 




0213 





F007 


PL INI 


EOR 


BSICX 


CK FOR PROPER I CNT 




80033770 




0214 


00 


4C6001E6 


ERROR 

* 


80 SC L 


EWAIT.Z 


8RNCH ON WRONG I CNT 


IX 


60033780 
80033790 




0216 


00 


74020208 




MDX L 


PLINT, 2 


MODIFY RETURN 




30033800 




0213 


00 


4CC00208 


# 


BOSC I 


PLINT 


RETURN TO USER 


IX 


80033810 
80033820 




021A 





014E 


XIOCK 


oc 


P0LL1 


XIO CK I COUNT 




80033830 




021B 





0157 


BSICK 

* 


DC 


P0LL2 


BSI CK I COUNT 




8003? 
80033850 




021C 





0000 


LVL01 


DC 









80033860 




021D 





404 F 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80033870 




021E 





3662 


* 


DC 


/3662 


ER 




80033880 
80033890 




021F 





0000 


LVL26 


DC 









80033900 




0220 





404C 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80033910 




0221 





9C60 


* 


DC 


/9C60 


TR 




80033920 
80033930 




0222 





0000 


LVL27 


DC 









80033940 




0223 





4049 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80033950 




0224 





1C34 


* 


OC 


/1C34 


CE 




80033960 
80033970 




0225 





0000 


LVLO? 


DC 









80033^80 




0226 





4046 




BSI 


CMTRP 


GO TO COMN TRAP RTN, 


SRC 


80033990 




0227 





C4C4 


* 


DC 


/C4C4 


00 




80034000 
80034010 




0228 





0000 


LVL03 


DC 









80034020 




02 29 





4043 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034030 




022A 





C4FC 


* 


DC 


/C4FC 


01 




80034040 
80034050 




022B 





OOOC 


IVL04 


DC 









O0034060 




022C 





4040 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034070 




022D 





C4D8 


* 
* 


DC 


/C4D8 


02 




80034080 
80034090 
80034100 




022E 





0000 


LVL05 


DC 









80034110 




022F 





403D 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034120 




0230 





C40C 


* 


DC 


/C4DC 


03 




80034130 
80034140 




0231 





0000 


LVL06 


DC 









80034150 




0232 





40 3 A 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034160 




0233 





C4F0 


• 


DC 


/C4F0 


04 




80034170 
80034180 




0234 





0000 


LVL07 


DC 









80034190 




0235 





4037 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034200 




0236 





C4F4 


* 


DC 


/C4F4 


05 




80034210 
80034220 




0237 





0000 


LVL08 


DC 









80034230 




0238 





4034 




BSI 


CMTRP 


GO TO COMN TRAP RTN. 


SRC 


80034240 




0239 





C4D0 


* 


DC 


/C4D0 


06 




80034250 
80034260 




023A 





0000 


I VL09 


DC 









80034270 




023B 





403L 




BSI 


CtfTRP 


GO TO COMN TRAP RTrt. 


SRC 


80034280 




023C 





C4D4 


* 


DC 


/C4D4 


07 




80034290 
80034300 




023D 





0000 


LVL10 


DC 









80034310 
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023E 





402E 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


BOJ34320 




023F 





C4E4 


DC 

• 


/C4E4 


08 










80034330 
80034340 




0240 





-.000 


LVL11 DC 















80034350 




0241 





402 B 


BSI 


CMTRP 


GO 


TO 


COMN T1AP 


RTN. 


SRC 


80034360 




0242 





C4E0 


DC 

* 


/C4E0 


09 










80034370 
80034380 




0243 





0000 


LVL12 DC 















80034390 




0244 





4028 


BSI 


CMTRP 


GO 


TO 


CONN TRAP 


RTN. 


SRC 


30034400 




0245 





FCC4 


DC 

* 


/FCC4 


10 










80034410 
80034420 




0246 





0000 


LVL13 DC 















80034430 




0247 





402 5 


BSI 


CMTRP 


GO 


TO 


COMN TR«P 


RTN. 


SRC 


80034440 




0248 





FCFC 


DC 

* 


/FCFC 


11 










80034450 
80034460 




0249 





0000 


LVL14 DC 















80034470 




024 A 





4022 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034480 




024B 





FCD8 


DC 

* 


/FC08 


12 










80034490 
80034500 




024C 





0000 


LVL15 DC 















80034510 




024D 





401F 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034520 




024E 





FCDC 


OC 

* 


/FCDC 


13 










80034530 
80034540 




024F 





0000 


LVL16 DC 















80034550 




0250 





401C 


8SI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034560 




0251 





FCFO 


DC 

* 


/FCFO 


14 










80034570 
80034580 




0252 





0000 


LVL17 DC 















80034590 




0253 





4019 


BSI 


CMTAP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034600 




0254 





FCF4 


DC 

* 


/FCF4 


15 










80034610 
80034620 




0255 





0000 


LVL18 DC 















80034630 




0256 





4016 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034640 




0257 


r 


FCDO 


OC 

* 


/FCDO 


16 










80034650 
80034660 




0258 





0000 


LVL19 DC 















80034670 




0259 





4013 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034680 




025A 





FCD4 


DC 

* 


/FCD4 


17 










80034690 
80034700 




0258 





0000 


LVL20 DC 















80034710 




025C 





4010 


BSI 


CMTRP 


GO 


TO 


CCMN TRAP 


RTN. 


SRC 


80034720 




0253 





FCE4 


DC 

* 


/FCE4 


18 










80034730 
80034740 




025E 





0000 


LVL21 OC 















80034750 




025F 





400D 


BSI 


C <TRP 


GO 


TO 


COMN TRAP 


RTN. 


SRC 


80034760 




0260 





FCEO 


DC 

* 


/FCEO 


19 










80024770 
80034780 




0261 





0000 


LVL22 DC 















80034790 




0262 





400A 


BSI 


CMTR. 


GO 


TO 


COMN TRAP 


RiN. 


SRC 


80034800 




0263 





D8C4 


DC 

* 


/D6C4 


20 










80034810 
80034820 




0264 





COOO 


LVL23 DC 















80034830 




0265 





4007 


BSI 


CMTRP 


GO 


TO 


COHN TRAP 


RTN 


SRC 


80034840 




0266 





D8FC 


DC 

* 


/D8FC 












80034850 
80034360 




0267 





0000 


LVL24 DC 















80034G70 




0268 





4004 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN 


SRC 


80034880 




0269 





D808 


OC 

* 


/D308 












80034890 
80034900 




026A 





0000 


LVL25 DC 















80034910 




026B 





40C1 


BSI 


CMTRP 


GO 


TO 


COMN TRAP 


RTN 


SRC 


80034920 




026C 





D8DC 


OC 

* 
* 


/DSDC 












80034930 
80034940 
80034950 










* 


** COMMON TRAP ROUTINE ** 




80034960 










# 














80034970 




026D 





0000 


CMTRP DC 





ENTRY 


POINT 




SE 


80034980 




026E 


00 


74000 1EF 


MDX L 


MSKCK.O 


SKIP 


IF NOT MASK CK 




80034990 
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0270 


7015 




MDX 




FAIL 


BRNCH 


MSKEO INTERRPT 




80035000 




0271 


0816 




XIO 




ILSM 


SENSE 


AND SAVE ILSW 




80035010 




0272 


D015 




STO 




ILSW 










80035020 




0273 


00 C480026D 




LD 


I 


CMTRP 


CHECK 


IF PROPER LVL 




80035030 




0275 


00 F40001F5 




EOR 


L 


LVLCK 


♦SERVICED 






80035040 




0277 


4820 




BSC 




I 










80035050 




0278 


700D 




MDX 




FAIL 


BRANCH 


ON WRONG LVL 




80035060 




0279 


00 740001EE 




MDX 


L 


INTCK.O 


SKP NOT INTRNL INTRP 




80035070 




027B 


7005 




MDX 




CKINT 


BRANCH 


INTRNL INTRP 




80035080 




027C 


00 74000288 




MOX 


L 


ILSW.O 


SKIP IF ILSW ZERO 






80035090 




02?E 


7007 




MDX 




FAIL 










80035100 




027F 


00 4C400000 


OUT 


80SC 


L 





RETURN 


TO USER 




SX 


80035110 




0281 


C006 


CKINT 


LD 




ILSW 


CHECK 


FOR PROPER 






80035120 




0282 


00 F<.0001FA 




EOR 


L 


ILSCK 


♦ ILSW 


BIT 






60035130 




0284 


4818 




BSC 




+- 










80035140 




0285 


70F9 




MDX 




OUT 










80035150 




0286 


00 4C4001E6 


FAIL 

* 


BOSC 


L 


EWAIT 


BRANCH 


ON ERROR 






80035160 
80035170 




02 88 


0000 




BSS 


E 













80035180 




0288 


0000 


ILSW 


DC 







SENSE 


ILSW IOCC 






80035190 




02 89 


0300 


* 


DC 




/0300 










80035<:00 
80035210 








* 






** NEST CHECK TRAP ROUTN** 




80035220 








V 
















80035230 




028A 


0000 




BSS 


E 













80035240 




02 8A 


0000 


PRI01 


DC 







ENTRY 






IE 


80035250 




0288 


00 OC000288 




XIO 


L 


ILSW 


SENSE 


ILSW 






80035260 




0280 


00 740101F6 




MDX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IKD 




80035270 




02 8F 


00 740101F7 




MDX 


L 


SRVC.l 


ADD 1 


TO SERVICE 


I NO 




80035280 




0291 


00 4CC0028A 




BOSC 


I 


PR101 


EXIT 






IX 


80035290 




0293 


0000 


PRI26 


DC 







ENTRY 






IE 


80035300 




0294 


00 740101F6 




MDX 


L 


REQST,1 


ADD 1 


TO REQUEST 


IND 




80035310 




0296 


0305 




XIO 




TR26 


ISSUE 


INTERRUPT 






80035320 




0297 


1000 




NOP 














80035330 




0298 


00 740101F7 




MOX 


L 


SRVC.l 


ADD 1 


TO SERVICE 


IND 




80035340 




029A 


00 4CC00293 




BOSC 


I 


PRI26 


EXIT 






IX 


80035350 




029C 


0010 


PR26 


DC 




/0010 


LEVEL 


11 IOCC 






80035360 




0290 


04A0 




DC 




/04A0 










80035370 




029E 


0000 




DC 















80035380 




029F 


0000 


PRI27 


DC 







ENTRY 






IE 


80035390 




02AO 


00 740101F6 




MOX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IND 




80035400 




02A2 


0*05 




XIO 




PR27 


ISSUE 


INTERRUPT 






30035410 




02A: 


1000 




NOP 














80035420 




02A4 


00 740101F7 




MDX 


L 


SRVC.l 


ADD 1 


TC SERVICE 


I NO 




80035430 




02A6 


00 4CC0029F 




BOSC 


I 


PRI27 


EXIT 






IX 


80035440 




02A8 


0010 


PR27 


DC 




/0010 


LEVEL 


11 IOCC 






80035450 




02A9 


04A0 




DC 




/04A0 










80035460 




02AA 


0000 




DC 















80035470 




02AB 


0000 


PRI02 


DC 







ENTRY 






IE 


80035480 




02AC 


00 740101F6 




MDX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IND 




8003 5490 




02AE 


0000 




DC 







J! LEGAL OP CODE 






80035500 




02AF 


1000 




NOP 














80035510 




02 BO 


00 740101F7 




MDX 


L 


SRVC.l 


ADD 1 


TO SERVICE 


IND 




80035520 




02B2 


00 4CC002AB 




BOSC 


I 


PRI02 


EXIT 






IX 


80035530 




02B4 


0000 




DC 







♦PROGRAMMING 






80035540 




02B5 


0000 




DC 







♦CONVIfcNCE 






80035550 




02B6 


0000 




DC 















80035560 




02B7 


0000 


PRI03 


DC 







ENTRY 






IE 


30035570 




02B8 


00 740101F6 




MOX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IND 




80035580 




02BA 


0805 




XIO 




PR03 


ISSUE 


INTERRUPT 






80035590 




02BB 


1000 




NOP 














8003 5600 




02BC 


00 740101F7 




MDX 


L 


SRVC.l 


ADD 1 


TG SERVICE 


IND 




80035610 




02BE 


00 4CC002B7 




BOSC 


I 


PPI03 


EXIT 






IX 


80035620 




02C0 


8000 


R03 


DC 




/8000 


LEVEL 


00 IOCC 






80035630 




02C1 


04A0 




DC 




/04A0 










8003 5640 




02C2 


0000 




DC 















80035650 




02C3 


0000 


PR 104 


DC 







ENTRY 






IE 


80035660 




02C4 


00 740101F6 




MDX 


L 


REQST.l 


AOD I 


TO REQUEST 


IND 




8003567 o 
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36 
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INTERRUPT SECTION 



PART NO. 
PAGE 



2183266 
36A 



02C6 





0805 


02C7 





1000 


02C8 


00 


740101F7 


02CA 


00 


4CC002C3 


02CC 





4000 


02C0 





04AO 


02CE 





0000 


02CF 





0000 


2D0 


00 


740101F6 


02D2 





0805 


02D3 





1000 


02D4 


00 


740101F7 


0206 


00 


4CC002CF 


02D8 





2000 


02D9 





04A0 


020A 





0000 


02DB 





0000 


02DC 


00 


740101F6 


02DE 





0805 


02DF 





1000 


02E0 


00 


740101F7 


Q'-BZ 


00 


4CC002DB 


02E4 





1000 


02E5 





04A0 


02E6 





0000 


02E7 





0000 


02E8 


00 


740101F6 


02EA 





0805 


02EB 





1000 


02EC 


00 


740101F7 


02EE 


00 


4CCC02E7 


02F0 





0800 


02F1 


> 


04A0 


02F2 





0000 


02F3 





0000 


02F4 


00 


740101F6 


02F6 





0605 


02F7 





lOOj 


02F8 


00 


740101F7 


02FA 


00 


4CC002F3 


02FC 





0400 


02FD 





04A0 


02FE 





0000 


02FF 





OOOv, 


0300 


00 


740101F6 


0302 





0805 


0303 





1000 


0304 


00 


740101F7 


0306 


00 


4CC002FF 


0308 





0200 


0309 





04A0 


030A 





0000 


030B 





0000 


030C 


00 


740I01F6 


030E 





0805 


030F 





1000 


0310 


00 


740101F7 


0312 


00 


4CC00 30B 


0314 





0100 


0315 


c 


04A0 


0316 





0000 


0317 





0000 


0318 


00 


740101F6 


031A 





0805 


031B 





1000 


031C 


00 


740101F7 


031E 


00 


4CC00317 


0320 





0080 


DATE 




28FEB66 


EC NO. 


415120 



PR04 



PRI05 



PR05 



PRI06 



PR 06 



PR 107 



PR07 



PRI08 



PR08 



PRI09 



PR09 



PRI10 



PR1C 



PRI11 



PR 11 



XIO 




PR04 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PRI04 


DC 




/4000 


DC 




/04AO 


DC 







DC 







MDX 


L 


REQST.l 


XIO 




PROS 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PRI05 


DC 




/2000 


DC 




/C4A0 


DC 







DC 







MDX 


L 


REQST.l 


XIO 




PR06 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PR 1 06 


DC 




/100C 


DC 




/C4A0 


DC 







DC 







MDX 


L 


REQST.l 


XIO 




PR07 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PRI07 


DC 




/C800 


DC 




/C4A0 


DC 







DC 







MOX 


L 


REQST.l 


XIO 




PROS 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PRI08 


DC 




/0400 


C 




/04AO 


DC 







DC 







MDX 


L 


REQST.l 


XIO 




PP09 


NOP 






MDX 


L 


SRVi.,1 


BOSC 


I 


PRI09 


DC 




/0200 


OC 




/04A0 


DC 







DC 







MDX 


L 


REQST.l 


XIO 




PR10 


NOP 






MDX 


L 


SRVC.l 


BOSC 


I 


PRI10 


DC 




/0100 


DC 




/04A0 


DC 







DC 







MOX 


L 


REQST.l 


XIO 




PR11 


NOP 






MDX 


L 


SRVC.l 


OOSC 


I 


PRIU 


DC 




/0080 



ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 01 IOCC 



ENTRY IE 

ADD 1 TO REQUEST SO 
ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 02 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 03 IOCC 



ENTRY IE 

ADO 1 TO RtQUEST IND 
ISSUE INTERRUPT 

ADO 1 TO SERVICE IND 
EXIT IX 

LEVEL 04 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 05 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

ADO 1 TO SERVICE IND 
EXIT IX 

LEVEL 06 IOCC 



ENTRY IE 

ADO 1 J REQUEST IND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 07 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

AOD 1 TO SERVICE IND 
EXIT IX 

LEVEL 08 IOCC 



29JUN66 04NOVC6 I5FEB67 
4I5I75A 415233 4I5233B 



80035680 
9003569O 
80035700 
80035710 
80035720 
80035730 
80035740 
80035750 
8003576O 
8003577O 
80035780 
8003579O 
80035800 
80035810 
80035820 
80035e3O 
8003584O 
80035850 
8003 5 860 
80O3587O 
80035880 
80035890 
80035900 
80035910 
8003592O 
80035930 
8003594O 
3003595O 
80035960 
80035970 
80035980 
80035990 
80036000 
80036010 
80036020 
80036030 
80036040 
8003605O 
80036060 
80036070 
80036080 
80036090 
80036100 
80036110 
80036120 
80036130 
80036140 
80036150 
80036160 
80036170 
30036180 
8003M90 
30036200 
80036210 
80036220 
80036230 
80036240 
80036250 
80036260 
80036270 
80036280 
80036290 
80036300 
b003631O 
80036320 
80036330 
80036340 
80036350 



PROG ID 
PAGE 



0800- t 
36A 
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PAG*: 
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37 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARD) 
INTERRUPT SECTION 



PART NO. 2183266 
PAGE 37A 



0321 





04AO 




DC 




/04AO 


0322 





0000 




DC 







0323 





0000 


PRU2 


DC 







0324 


00 


740101F6 




MDX 


L 


REQST.l 


0326 





0805 




XIO 




PR12 


0327 





1000 




NOP 






0328 


00 


740101F7 




MDX 


L 


SRVCl 


032A 


00 


4CC00323 




BOSC 


I 


PRI12 


032C 





0040 


PR12 


DC 




/0040 


032D 





04AO 




DC 




/04A0 


032E 





0000 




OC 







032F 





0000 


PRI13 


DC 







0330 


00 


740101F6 




MDX 


L 


REQST.l 


0332 





0805 




XIO 




PR13 


0333 





1000 




NOP 






0334 


00 


740101F7 




MOX 


L 


SRVCl 


0336 


00 


4CC0032F 




BOSC 


I 


PRI13 


0338 





0020 


PR13 


DC 




/0020 


0339 





04A0 




DC 




/04AO 


033A 





0000 




DC 







033B 





0000 


PRI14 


DC 







033C 


00 


740101F6 




MDX 


L 


REOST.l 


033E 





0805 




XIO 




PR14 


033F 





1000 




NOP 






0340 


00 


740101F7 




MDX 


I 


SRVCl 


0342 


00 


4CCO033B 




BOSC 


I 


PRI14 


0344 





0010 


PR14 


DC 




/0010 


0345 





04A0 




DC 




/04A0 


0346 





0000 




DC 







0347 





0000 


PRI15 


DC 







0348 


00 


740101F6 




MDX 


L 


REQST.l 


034A 





0805 




XIO 




PR15 


034B 





1000 




NOP 






034C 


00 


740101F7 




MDX 


L 


SRVCl 


034E 


00 


4CC0C347 




BOSC 


I 


PRI15 


0350 





0008 


PR15 


DC 




/0008 


035! 





04A0 




DC 




/C4A0 


0352 





0000 




DC 







0353 





0000 


PRI16 


DC 







354 


00 


740101F6 




MDX 


L 


REQST.l 


0356 





0805 




XIO 




PR16 


0357 





1000 




NOP 






0358 


00 


740101F7 




MDX 


L 


SRVCl 


3 5A 


00 


4CC00353 




BOSC 


I 


PRI16 


035C 





0004 


PR16 


DC 




/0004 


035D 





04A0 




DC 




/04A0 


035E 





0000 




DC 







035F 





0000 


PR 117 


DC 







0360 


00 


740101F6 




MDX 


L 


REQST.l 


0362 





0805 




XIO 




PR17 


0363 





1000 




NOP 






0364 


no 


740101F7 




MDX 


L 


SRVCl 


0366 


00 


4CC0035F 




BOSC 


I 


PRI17 


0368 





8000 


PR 17 


OC 




/8O0O 


0369 





04A1 




DC 




/04A1 


036A 





0000 




DC 







036B 





0000 


PRI18 


OC 







36C 


00 


740101F6 




MDX 


L 


REQST.l 


036fc 





0805 




XIO 




PRl8 


036F 





1000 




NOP 






0370 


00 


740101F7 




MOX 


L 


SRVCl 


0372 


00 


4CC0036B 




BOSC 


I 


PRU8 


0374 





4000 


PR18 


DC 




/4000 


0375 





04A1 




DC 




/04A1 


0376 





0000 




DC 







0377 





0000 


PRI19 


DC 







0378 


00 


740101F6 




MOX 


L 


REQST.l 


037A 





0805 




XIO 




PR19 


DATE 




28FEB66 


29JUN66 


04NOV66 I5FEB67 


EC NO. 


4 15120 


41 5175* 


41523!! 


4I5233B 



ENTRY IE 

ADD 1 TO REQUEST I NO 
ISSUE INTERRUPT 

ADD 1 TO SERVICE I NO 
EXIT IX 

LEVEL 09 IOCC 



ENTRY IE 

ADD 1 TO REQUEST I ND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE I ND 
EXIT IX 

LEVEL 10 IOCC 



ENTRY IE 

ADD 1 TO REQUEST I ND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE I ND 
EXIT IX 

LEVEL 11 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 12 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUe INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 13 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 
ISSUE INTERRUPT 

ACD 1 TO SERVICE IND 
EXIT IX 

LEVEL 14 IOCC 



ENTRY IE 

ADD 1 TO REQUEST IND 

ISSUE INTERRUPT 

ADD 1 TO SERVICE IND 
EXIT IX 

LEVEL 15 IOCC 



ENTRY IE 

ADD 1 TO KECUEST IND 
ISSUE INTERRUPT 



80036360 
80036370 
80036380 
80036390 
80036400 
80036410 
80036420 
80036430 
80036440 
80036450 
80036460 
80036470 
80036480 
80036490 
80036500 
80036510 
80036520 
80036530 
80036540 
800365*0 
8003&3O0 
80036570 
80036580 
80036590 
80036600 
80036610 
80036620 
80036630 
80036640 
80036650 
80036660 
80036670 
80036680 
30036*90 
80036700 
30036710 
80036720 
80036730 
80036740 
80036750 
80036760 
"0036770 
30036780 
80036790 
80036800 
80036810 
80036820 
80036830 
80036840 
80036850 
80036860 
80036370 
80036880 
80036890 
80036900 
80036910 
80036920 
80036930 
80036940 
80036950 
80036960 
80036970 
80036980 
80036990 
80037000 
80037010 
80037020 
3003 7030 



PROG ID 
PAGE 



0800-1 
37 



037B 





1000 




NOP 














80037040 




03 7C 


00 


740101F7 




MDX 


L 


SRVCl 


ADD 1 


TO SERVICE 


IND 




80037050 




037E 


00 


*CC00377 




BOSC 


I 


PRU9 


EXIT 






IX 


80037060 




0380 





2000 


PR19 


DC 




/2000 


LEVEL 


16 IOCC 






8003 7070 




0381 





04A1 




DC 




/04A1 










80037080 




0382 





0000 




DC 















80037090 




0383 





0000 


PRI2U 


DC 







ENTRY 






IE 


80037100 




038'+ 


00 


740101F6 




MOX 


L 


REOST.l 


ADD 1 


TO REQUEST 


IND 




80037110 




0386 





0805 




XIO 




PR20 


ISSUE 


INTERRUPT 






80037120 




0387 





1000 




NOP 














80037130 




0338 


00 


740101F7 




MD* 


L 


SRVCl 


ADD 1 


T SERVICE 


IND 




80037140 




038A 


00 


4CC00383 




BOSC 


I 


PRI20 


EXIT 








8003/150 




038C 





1000 


PR 20 


DC 




/1000 


LEVEL 


17 IOCC 






8P037160 




038D 





04A1 




DC 




/04A1 










30037170 




038E 





0000 


PRI21 


DC 







ENTRY 






IE 


80037180 




038F 





0000 




DC 















80037190 




0390 


00 


740101F6 




MDX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IND 




80037200 




0392 





0805 




XIO 




PR21 


ISSUE 


INTERRUPT 






80037210 




0393 





1000 




NOP 














80037220 




394 


00 


740101F7 




MDX 


L 


SRVCl 


ADD 1 


TO SERVICE 


IND 




80037230 




0396 


uO 


4CC0033E 




BOSC 


I 


PRI21 


EXIT 








80037240 




0398 





0800 


PR21 


DC 




/C800 


LEVEL 


18 IOCC 






80037250 




03 J9 





04*. 1 




DC 




/04A1 










80037260 




039A 





0000 




DC 















80037270 




039B 





0000 


PRI22 


OC 







ENTRY 






IE 


80037280 




039C 


00 


740101F6 




MOX 


L 


REQST.l 


ADO 1 


TO REQUEST 


IND 




80037290 




039E 





0805 




XIO 




PR22 


ISSUE 


INTER°.«.Pr 






60037300 




039F 





1000 




NOP 














80037310 




03A0 


00 


740101F7 




MDX 


L 


SRVCl 


ADD 1 


TO SERVICE 


IND 




80037320 




3A2 


00 


4CC0039B 




BOSC 


I 


PRI22 


EXIT 








8003 7330 




03A4 





0400 


PR22 


DC 




/0400 


LEVEL 


19 io:c 






30037340 




03A5 





04 A 1 




DC 




/04A1 










80037350 




03A6 





0000 




DC 















80037360 




03A7 


•J 


0000 


PRI23 


DC 







ENTRY 






IE 


80037370 




03A8 


00 


740101F6 




MDX 


L 


REQST.l 


AOD 1 


TO REQUEST 


IND 




80037380 




33*A 





0805 




XIO 




?R23 


ISSUE 


INTERRUPT 






80037390 




03AB 





1000 




NOP 














8003 7400 




03AC 


00 


740' T1F7 




MDX 


L 


SRVCl 


ADD 1 


TO SERVICE 


IND 




80037410 




■'3AE 


00 


4CC003A7 




BOSC 


I 


PRI23 


EXIT 






IX 


80037420 




03B0 





0200 


PR23 


DC 




/C200 


LEVEL 


20 IOCC 






30037430 




0381 





04A1 




DC 




/C4A1 










80037440 




0382 





0000 




DC 















80037450 




03B3 





0000 


PRI24 


DC 







ENTRY 






IE 


8003 7460 




0334 


00 


740101F6 




MDX 


L 


REQST.l 


ADD 1 


TO REQUEST 


IND 




80037470 




0386 





0805 




XIO 




PR24 


ISSUE 


INTERRUPT 






80037480 




03B7 





1000 




NOP 














8003 7490 




0388 


00 


740101F7 




MDX 


L 


S.JVC.l 


ADD 1 


TO SERVICE 


IND 




80037500 




03BA 


00 


4CC0038 3 




BOSC 


I 


PRI2- 


EXIT 






IX 


80037510 




03BC 





0100 


PR24 


DC 




/0100 


LEVEL 


21 IOCC 






30037520 




038D 





04A1 




DC 




/C4A1 










80037530 




033E 





0000 




DC 















80037540 




038F 





0000 


PRI25 


OC 







ENTRY 






IE 


80037550 




03C0 


00 


740101F6 




MDX 


L 


REQST.l 


ADD I 


TO REQUEST 


IND 




80037^60 




03C2 





0805 




XIO 




PR25 


ISSUE 


IYTERRUPT 






80037570 




03C3 





1000 




NOP 














80037580 




03C4 


00 


740101F7 




MDX 


L 


SRVCl 


ADD 1 


TO SERVICE 


I NO 




80037590 




03C6 


00 


4CC003BF 




BOSC 


I 


PRI25 


EXIT 






IX 


30037600 




03C8 





0080 


PP.25 


DC 




/C080 


LEVEL 


22 IOCC 






8003"'610 




03C9 





04A1 




OC 




/04A1 










80037620 










* 






HEX INTERRUPT LEVEL TABLE 




80037630 










* 
















80037640 




03CA 





3662 


INLVT 


OC 




/3662 


ER 








80037650 




03C6 





C4C4 




DC 




/C4C4 


00 








80037660 




03CC 





C4FC 




DC 




'C4FC 


01 








80037670 




03CD 





C4D8 




DC 




/C4D8 


02 








80037680 




03CE 





C4DC 




DC 




/C4DC 


03 








80037690 




03CF 





C4F0 




DC 




/C4F0 


04 








80037700 




03D0 





C4F4 




DC 




/C4F4 


05 








80037710 




DATE 




28FEB66 


29JUN66 


04NOV66 ITFEB67 










PROG 10 


OdOC-1 


EC NO. 


415120 


4I5I75A 


415233 


4I5233B 










PAGE 


37A 
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DIAGNOSTIC MONITOR HEADER PROGRAM (CARDI 
INTERRUPT SECTION 



0301 





C4D0 


0302 





C4D4 


0303 





C4E4 


0304 





C4E0 


03D5 





FCC 4 


0306 





FCFC 


0307 





FCD8 


0308 





FCDC 


0309 





FCFO 


03DA 





FCF4 


03DB 





FCDO 


03DC 





FCD4 


030D 





FCE4 


030E 





FCEO 


030F 





D3C4 


03E0 





08FC 


03E1 





D8D8 


03E2 





090C 


03E3 





9C60 


0364 





1C34 



DC 


/C400 


06 


DC 


/C4D4 


07 


DC 


/C4E4 


08 


DC 


/C4E0 


09 


DC 


/FCC4 


10 


DC 


/FCFC 


11 


DC 


/FC08 


12 


DC 


/FCOC 


13 


OC 


/FCFO 


14 


DC 


/FCF4 


15 


DC 


/FCOO 


16 


DC 


/FCD4 


17 


DC 


/FCE4 


18 


OC 


/FCEO 


19 


OC 


/D8C4 


20 


DC 


/OPFr 


21 


DC 


/D8D3 


ZZ 


DC 


/08DC 


23 


OC 


/9C60 


TR 


OC 


/1C34 


CE 



03E6 



012C 



END 



START 



80037720 
80037730 
80037740 
80037750 
80037760 
800377^0 
80037780 
80037790 
80037800 
80037810 
80037820 
80037830 
80037840 
80037850 
80037860 
80037870 
8003788C 
80037890 
80037900 
80037910 
80031 >20 
8003792 80037930 



DATE 
EC NO. 



28FEB56 
415120 



29JUN66 04NOV66 I5FEB67 
4I5I75A 415233 4I5233B 



PROG ID 
PAGE 



0800-1 
38 
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DIAGNOSTIC MONITOR HEADER PROGRAM ICARO) 
INTERRUPT SECTION 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


BSICK 


021B 


CKINT 


0281 


CMTRP 


0260 


ELEVN 


01F1 


ERROR 


0214 


EWAIT 


01E6 


FAIL 


0286 


ILSCK 


01FA 


ILSW 


0288 


INLVL 


01E0 


INLVT 


03CA 


INTCK 


01EE 


INT1 


0176 


INT2 


01A9 


INT3 


01BB 


ISINT 


0206 


LVLCK 


01F5 


LVL01 


021C 


LVL02 


0225 


LVL03 


0228 


LVL04 


022B 


LVL05 


022E 


LVL06 


0231 


LVL07 


0234 


LVL08 


0237 


LVL09 


023A 


LVLlf 


023D 


LVL11 


0240 


LVL12 


0243 


LVL13 


0246 


LVL14 


0249 


LVL15 


02 C 


LVL16 


024F 


LVL17 


0252 


LVL18 


0255 


LVL19 


0258 


LVL20 


0253 


LVL21 


02*? 


LVL22 


0261 


LVL23 


0264 


LVL24 


0267 


LVL25 


026A 


LVL26 


021F 


LVL27 


0222 


MASKO 


01FC 


MASK1 


01FE 


MSKCK 


OlEF 


NSLVL 


01F9 


NSTCK 


01F8 


OCV 


01F3 


OUT 


02 7F 


PL I NT 


0208 


PLIN1 


0213 


POLCK 


01EB 


POLU 


014E 


P0LL2 


0157 


PRI01 


028A 


PRI02 


02AB 


PRI03 


02B7 


PRIOt 


02C3 


PRI05 


02CF 


PRI06 


02DB 


DATE 


28F 


EC NO. 


415 



REFERENCES 

0213 

0278 

02 10,0220,022 3, 02 26, 0229, 022C, 02 2F, 0232, 0235, 0238, 

0239,0236,0241,024': 1 0247, 024A, 0240, 0250, 0253, 0256, 

0259 ,025C, 02 5F, 0262, 0265, 0263, 0268,027 3 



020C 
014E 
0270 
OiBA 
0209 
015E 
0176 
0170 
0184 
01AF 
01C6 
0145 
01AD 
0178 



,Ol5i,017C,O191,019C,01C0,0lDB,0lDF,0214,0286 

,0278, 027E 

,0194,0282 

,0271, 0272, 02 7C, 0281, 0288 

,0180,0186 
,0188, 01AI, 0279 



,314B,015 2,0174,0179,017E,0181,01A6,OIA9,01AB, 

»018A,01BE,01C2,01C4 

,018F, 0180,0275 



OlEO 



,0159,OIA7,01C7,01E2 
,0156,01A8,01C8,01E3 
,01A2,018l,026E 



,0187, 0197, 01B6, 02 85 
,0200,0216,0218 



012F 

0131 

0171 

01CA 

0109,0100 

0189 

OloC 

OIZC 

0210 

0136,0150, 020E 

021A 

0213 

0100,0291 

029 2 

028c 

02CA 

0206 

02E2 



29JUN66 04NOV66 I5FEE67 
4I5I75A 415233 4I5233B 
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PRI07 


02E7 


02EE 


PRI08 


02F3 


02FA 


PRI09 


02FF 


0306 


PRI10 


0308 


0312 


PRIU 


0317 


031E 


PRI12 


0323 


032A 


PRI13 


032F 


0336 


PRI14 


0338 


0342 


PR 115 


0347 


034E 


PRI16 


0353 


035A 


PR! 17 


035F 


0366 


PRI18 


036B 


0372 


PRI19 


0377 


03?E 


PRI20 


0383 


038A 


PRI21 


038E 


0396 


PRI22 


039B 


03A2 


PRI23 


03A7 


03AE 


PR124 


03B3 


03BA 


PRI25 


03BF 


01F9, 


PRI26 


0293 


029A 


PRI27 


029F 


02A6 


PR03 


02C0 


02BA 


PR04 


02CC 


02C6 


PR05 


02D8 


02„2 


PR06 


02E4 


02DE 


PR07 


02FO 


02EA 


PR08 


02FC 


02F6 


PR09 


0308 


0302 


PR10 


0314 


030E 


PR11 


0320 


03 1A 


PR12 


032C 


0326 


PR13 


0338 


0332 


PR14 


0344 


033E 


PR15 


0350 


0344 


PR16 


C35C 


0356 


PR17 


0368 


0362 


PR18 


0374 


036E 


PR19 


0380 


037A 


PR20 


038C 


0386 


PR21 


0393 


0392 


PR22 


03A4 


039E 


PR23 


0380 


03AA 


PR2' 


03BC 


0386 


PR25 


03C8 


03C2 


PR26 


029C 


0296 


PR27 


02A8 


02A2 


KEPET 


01E8 


01E1 


REQST 


01 F6 


0138, 
02E8, 
0360, 


RTRNA 


017E 


016A 


RTRNB 


0193 


0185 


RTRNC 


019E 


0195 


RTRND 


01C2 


01B4 


SPV 


01F4 


0193 


SPVCK 


OlEA 


0133, 


SRVC 


01F7 


013A, 
02EC, 
0364, 


START 


012C 


01E8, 


THRcE 


01F0 


0162 


TWLVE 


01F2 


OICD 


UMSKO 


0200 


0147, 


UMSK1 


0202 


0! 9, 


VCTOR 


01EC 


01 3D 


XIOCC 


0204 


0143, 


XIOCK 


021A 


0211 



3C6 



DATE 
EC NO. 



28FEB66 
41 5120 



OlD8,02 8D,02 94,O2AO,0?AC,02B8,02C4,0 2D0,O2DC, 
02F 4, 0300, 3 OC, 03 18, 324, i)3 30, 03 3C, 0348, 0354, 
36C,03 78,03 84,03 90,039C,03A8,03B4,03CO 



0199, 0198, 019E 

01DC,O2 8F,02 98,O2A4,O230,02BC,O2C8,02D4,02EO, 

2F 8, 0304, 03 10, 03 1C,0 528,03 34, 0340,0340,0358, 

3 70,03 7C,O3 88,0394,0 3AO,03AC,O3B8,03C4 

2E5 



0166, 0132, 01D4 
0163,01B3,01D5 

0172,01A5,01B<l,01D6 



29JUN66 04NOV66 I5FEB67 
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PROG ID 
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ABS 








8003 7940 


02BC 








ORG 




300 




80037950 








* INTERVAL TIMER SECTION OF MONITOR HEADER 


80037960 








********************* TIMER A TEST *»>■***********#* 


8003797O 


012C 


00 


65000064 


BEG!N 


LD* 


LI 


/0064 




80037980 


012E 


00 


44000218 


TATST 


BSI 


L 


ILXV 




80O3799O 


0130 


00 


C4000222 




LD 


L 


Tl-M 


SET TIMER ID 


80038000 


0132 


00 


D40001EC 




STO 


L 


ATW 




80038010 


0124 


00 


C400014B 




LD 


L 


TAR 


SEf INTERRUPT RETI 'RM 


80038020 


0136 


00 


040001ED 




STO 


L 


TRW 




80038030 


0138 


00 


C400014A 




LL 


L 


TAIOC 


SET T'MER A IOCC START 


80038040 


013A 


00 


D400023A 




STO 


L 


TABC 




80038050 


013C 


00 


C400024A 


* 


LD 


L 


FFFF 




80038060 
80038O7O 


013E 


00 


0C00023A 




XIG 


L 


TABC 


START TIMER A 


80038O8O 


0140 


00 


4400024D 


* 


BSI 


L 


DLAY 




80038090 
80038100 


0142 


00 


C40001EE 


TAR1 


LD 


L 


ILT 




80038110 


0144 


00 


B4C00235 




CHP 


L 


DLCK 




80038 120 


0146 





30B2 




DC 




/30B2 


GREATER INT OUT OF ERROR 


80038130 


0147 





7004 




MDX 




TBTST 


LESS 


80038140 


0148 





30B2 


TAR2 


DC 




/30B2 


EQUAL INT OUT OF ERROR 


80O3815O 


0149 





70FE 


* 


MDX 




TAR2 




80033 160 
80038170 


014A 





80C0 


TAIOC 


DC 




/8000 




80O3818O 


014B 





0142 


TAR 

* 


DC 




TAR1 




80038190 
80038200 








******************** TIMER B TEST **************** 


80038210 


014C 


00 


44000218 


TBTST 


8SI 


L 


IlXV 




80038220 


014E 


00 


C4000224 




LD 


L 


T2+1 


SET TIMER ID 


80038230 


0150 


00 


D40001EC 




STO 


L 


ATW 




80038240 


0152 


00 


C4000169 




LD 


L 


TBR 


SET INTERRUPT RETURN 


30038250 


0154 


00 


D40001ED 




STO 


L 


TRW 




80038260 


0156 


oO 


C4000168 




LD 


L 


TBIOC 


SET TIMER B IOCC START 


80038270 


0158 


00 


D400023A 




STO 


L 


TABC 




80038280 


015A 


00 


C400024A 


* 


LD 


L 


FFFF 




80038290 
80038300 


015C 


00 


0CC-023A 




XIO 


L 


TAbC 




80038310 


J15E 


00 


4400024D 


* 


BSI 


I 


DLAY 




80038320 
80038 330 


0160 


00 


C40001EE 


TBR1 


LD 


L 


ILT 




80038340 


0162 


00 


34000235 




CMP 


L 


DLCK 




80038350 


0164 





30B2 




DC 




/30B2 


GREATER INT OUT OF ERROR 


80038360 


0165 





7004 




MDX 




TCTST 


'.ESS 


80038370 


0166 





30B2 


TBR2 


DC 




/3082 


EQUALT INT OUT OF ERROR 


80038380 


0167 





70FE 


* 


MDX 




TBR2 




80038390 
80 03 8400 


0168 





4000 


TBIOC 


DC 




MOO^ 




80038410 


0169 





0160 


T8R 

* 
* 


DC 




TBR1 




8003842G 
800384 30 
80038440 








*******<-*****#*********** TIMER C TEST ************ 


80038450 


016A 


00 


44000213 


TCTST 


BSI 


L 


ILXV 




80036460 


016C 


00 


C4000226 




LD 


L 


T3*i 


SET TIME< ID 


80038470 


016E 


00 


040001 EC 




STO 


L 


ATW 




80038480 


0170 


00 


C4000137 




LD 


L 


TCR 


SET INTERRUPT RETURN 


30038490 


0172 


00 


D40001ED 




STO 


L 


TRW 




80038500 


0174 


00 


C4000186 




LD 


I 


TCIOC 


SET TIMER C IOCC START 


80038510 


0176 


00 


D400023A 




STO 


L 


TABC 




80038520 


0178 


00 


C40002'tA 


* 


LD 


L 


FFFF 




80038530 
80038540 


017A 


00 


0C00023A 




XIO 


L 


TABC 




80038550 


017C 


00 


4400024D 


* 


BSI 


L 


DLAY 




8003P560 
M038570 


017E 


00 


C40001EE 


TCR1 


LO 


L 


ILT 




80038580 


0180 


00 


B4000235 




CMP 


L 


DLCK 




80038590 


0182 





30B2 




DC 




/30B2 


GREATER INT CUT OF ERROR 


80038600 


0183 





7004 




MDX 




ICTR 


LESS 


80038610 


DATE 




28FEB66 


29JUN66 


04NOV66 I3FEB67 


PROG ID 0300-1 


EC NO. 


415120 


41 5I75A 


415233 


4I5233B 


PAGE 39A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2183266 
PAGE 40 



DIAGNOSTIC MONITOR HEADER PROGRAM (CARO) 
INTERVAL TIMER SECTION 



0184 





30B2 


TCR2 


DC 




/30B2 


EQUAL INT OUT OF ERROR 


80038620 




0185 





70FE 


* 


MDX 




TCR2 




80038630 
80038640 




0186 





2000 


TCIOC 


DC 




/2000 




80038650 




0187 





OWE 


TCR 

t 
* 


DC 




TCR1 




80038660 
80038670 
80038680 










********************TEST DOUBLE INCREMENT OF I-CTR* 


80038690 




0188 


00 


44000218 


1CTR 


BSI 


L 


ILXV 




80039700 




018A 


00 


C4000222 




LD 


L 


Tl+1 


SET TIMER ID 


80033710 




018C 


00 


040001 EC 




STO 


L 


ATW 




80038720 




018E 


00 


C400024C 




LD 


L 


TSICA 


SET INTERRUPT RTURN 


80033730 




0190 


00 


D40001ED 




STO 


L 


TRW 




80033740 




0192 


00 


C00014A 




LD 


L 


TAIOC 


SET TIMER A IOCC 


B0038750 




0194 


00 


D400023A 




STO 


L 


TABC 




80038760 




0196 


00 


C400024A 


* 


LD 


L 


FFFF 




80033770 
8003S780 




0198 


00 


0C00023A 




XIO 


L 


TABC 


START TIMER A 


80038790 




019A 





30B2 


ICTR2 


DC 




/3082 




80038800 




019B 





70FE 


ICTR3 


MDX 




ICTR2 




80033810 




019C 





70FD 


* 


MDX 




ICTR2 




8003882U 
80039830 




019D 


00 


C40001EE 


ICTR1 


LD 


L 


ILT 




90038840 




019F 


00 


F400024B 




EOR 


L 


ITST 




80038850 




01A1 





4320 




BSC 




Z 




80038360 




01A2 





30B2 




DC 




/3032 


DOUBLE I-CTR INCREMENT 


80033870 




01A3 





7000 




MDX 




ICTRB 




80033880 










************.********TEST DOUBLE INCREMENT I-CTR**** 


80033890 




01A4 


00 


44000218 


ICTRB 


BSI 


L 


ILXV 




80033900 




01A6 


00 


C4000224 




LD 


L 


T2+1 


SET TIMER ID 


80038910 




01A8 





D4C001EC 




STO 


L 


ATW 




80033920 




01AA 


00 


C40001CO 




LD 


L 


TSICB 


SET INTFRRUPT RETURN 


30033930 




01AC 


00 


D40001ED 




STO 


L 


TRW 




80033940 




01AE 


00 


C4000168 




LD 


L 


TBIOC 


SET TIMER B IOCC 


80033950 




OIBO 


00 


D400C23A 




STO 


L 


TABC 




80033960 




01B2 


00 


C400024A 




LD 


L 


FFFF 




80039970 




0184 


00 


OC00023A 




XIO 


L 


TABC 


START TIMER B 


80033980 




01B6 





30B2 


ICTR4 


DC 




/30B2 


FAILED TO INTERRUPT 


80033990 




01B7 





70FE 


ICTR5 


MDX 




ICTR4 




80039000 




0138 





70F0 


* 


MDX 




ICTR4 




80039010 
80039020 




01B9 


00 


C40001EE 


ICTR6 


LD 


L 


ILT 




80039030 




013P 





F003 




EOR 




ITSTB 




80039040 




01BC 





4820 




BSC 




Z 




8003905C 




OIBO 





30B2 




DC 




/30B2 


DOUBLE I-CTR INCREMENT 


80039060 




01BE 





7002 


* 


MDX 




ICTRC 




80039070 
80039C80 




01BF 





Oltil 


IT STB 


DC 




ICTR5 




80C39090 




01C0 





01B9 


TSICB 


DC 




ICTR6 




80039100 










***************+**»**TEST DOUBLE INCREMENT I-CTR*** 


80039110 




oiri 


00 


44000218 


ICTRC 


BSI 


L 


ILXV 




80039120 




01C3 


00 


C4000226 




LO 


t 


T3+1 


SET TIMER ID 


80039130 




01C5 


00 


D40001EC 




STO 


L 


ATW 




8C039140 




01C7 


00 


C40001DD 




LD 


L 


TSICC 


SET INTERRUPT RETURN 


8C039150 




01C9 


00 


D40001ED 




STO 


L 


TRW 




80039160 




01CB 


00 


C40001H6 




LD 


L 


TCIOC 


SET TIMER C IOCC 


80039170 




01CD 


00 


D400023A 




STO 


L 


TABC 




80039130 




01CF 


00 


C400024A 


* 


LD 


L 


FFFF 




80039190 
80039200 




01D1 


00 


OCO0023A 




XIO 


L 


TABC 


START TIMER C 


80039210 




0103 





30B2 


ICTR7 


DC 




/3032 


FAILER TO INTERRUPT 


80039220 




0104 





70FE 


ICTR8 


MOX 




ICTR7 




80039230 




0105 





70F0 


, 


MDX 




ICTR7 




80039240 
80039250 




0106 


00 


C40001EE 


ICTP9 


LD 


L 


ILT 




80039263 




01D8 





F003 




EOR 




ITSTC 




80039270 




0109 





4820 




BSC 




Z 




80039230 




01DA 





30B2 




DC 




/30B2 


DOUBLE I-CTR INCREMENT 


800392-:u 




DATE 




28FEB66 


29JUN66 04N0V66 !5FfRft7 


PROG ID 
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EC NO. 
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41 5175 
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01DB 7002 



MDX 



01DC 
01D0 
010E 
01DF 

01E0 
01E1 



01E2 
01E3 
01E4 



91D4 
0106 
085F 
0860 

71FF 

7008 

0853 
4804 
30B8 



01E5 0852 



01£6 
01E7 
01E8 



084F 
4804 
70FD 



01E9 6000 



OleA 00 4C00012E 



01 EC 
01FD 



0000 
0000 



OlEE 
01EF 
01F1 
01F2 
01F3 
01F4 
01F5 
01F6 
01F7 
1F8 
01F9 
01FB 
01FC 
01FD 
01FF 
0201 
0202 
0203 
0205 
0206 
0207 
0209 
020B 
020C 
0200 
020F 
0211 
0213 
0214 
0215 
0217 



0000 

00 0C00023C 

D025 

COFA 

4818 

30B2 

D020 

1010 

DOF r 

C01E 
00 F4C0024A 
4320 
30B2 
00 C43001EC 
00 F400024A 
4918 
30B2 
00 OC000246 
4818 
30B2 
00 0C000248 
00 F400023A 
C 4820 
30B2 
00 C48001EC 
00 4400022E 
00 F48001EC 
4820 
30B2 
00 4C400000 
0000 



0218 0000 



ITSTC DC 
TSICC DC 
LOAD 



* 
CK 



XIO 
XIO 

MDX 

MDX 

XIO 
BSC 
DC 

XIO 

XIO 
BSC 
MDX 

LDX 



LOAD 

ICTR8 
ICTR9 
HK15 
MK23 

1 -1 

LOOP 

RORRY 

E 

/30B3 

READ 

RORRY 

E 

CK 




fATST 



CHECK LOOP 

CHECK PEAOER READY 
READER NOT REAuY 

READ TO LOC ZERO IN PACK 

MODE 



GO TO LOADER 



* 

LOOP BSC 

* 

*******************INTERRUPT ROUTINE ************** 

* 



ATM 
TRW 
* 
ILT 



DC 
DC 



DC 

XIO 

STO 

LD 

BSC 

DC 

STO 

SLA 

STO 

LD 

EOR 

BSC 

or 

LD 
EOR 
BSC 
DC 
XIO 
BSC 
DC 
XIO 
EOR 
8SC 
DC 
LD 
BSI 
EOR 
BSC 
DC 
LTEX BOSC 
EMPA DC 



LXV OC 



/OOOO 
/OOOO 

/COOO 

SABC 

TEMPA 

TRW 

«■- 

/30B2 

ILTEX+1 

16 

TRW 

TEMPA 

FFFF 

Z 

/30B2 

ATW 

FFFF 

♦- 

/30B2 

ILSW 

♦ - 

/30B2 

DSW 

TAdC 

Z 

/30B2 

ATW 

DLAYA 

ATW 

Z 

/30B2 

OCOO 

/COOO 



STOP ALL TIPERS 



ACCUMULATOR DESTROYED 



TIMER DID NOT INCREMENT 



ILSW BLANK 



DSW IS BAD 



TlMf.S DIO NOT STOP 



LOAD INTERRUPT LEVEL TRANSFER 
VECTORS 



0219 
021A 



631B 
C012 



LDX 
LD 



/OOOO 

3 27 
ILTA 



X3= 27 

FETCH TRAP ADDRESS 



8003939O 
800393IO 
800393)20 
8003933O 
80039(3*0 
80039350 
800393S6O 
80039370 
80039380 
80039 390 
80039400 
80039*10 
80039420 
80039*30 
80039*40 
80039*50 
80039*60 
80039*10 
80039*580 
80039*90 
80039500 
80039510 
80039520 
80039530 
80039540 
80039550 
80039540 
800395.70 
8003 958Q 
80039590 
800396O0 
80039«sl0 
800396.20 
80039630 
800396*0 
80039fe5O 
80039&&O 
80039&70 
8003 9680 
30039690 
80039700 
80039710 
8003972O 
80039730 
80039?*0 
80039750 
3003976O 
80039770 
80039780 
80039 7-90 
800398SM3 
800398SO 
80039(*Z0 
80039S3O 
800398*0 
80039850 
8003986O 
80039B7O 

800 3 9 *e a 

600398>O 
800399*0 
80039910 
B0039920 
80039930 
800399*0 
80039950 
8003996© 
8003997© 



DATE 
EC NO. 



28FEB66 
415120 



29JUN66 
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415233 
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1. 

2. 



PROCESSOR FUNCTION TEST 

CORE FUNCTION TESTS 

HI CORE 

0-9 CORE 

LO CORE 

INTERRUPT FUNCTION TEST 

INTERVAL TIMER FUNCTION TEST 

CAR EXERCISER 

.*' NOTE 1 



PID 

08 B4 

08CA 
08CB 
08CC 
08B3 
08B2 
08B5 



NOTE 1 



NOTE 1 
NOTE 1 



ONLY THESE PROGRAMS ARE INCLUDED IN THE MONITOR HEADER 
PROGRAM. SHOULD MEMORY PARITY ERRORS OR STORAGE PROTECT 
■ VIOLATE OCCUR THE CORE FUNCTION TEST SHOULD BE RUN. 

SHOULD CAR CHECKS OCCUR THE CAR EXERCISER TEST SHOULD BE 
RUN. 

B. REQUIREMENTS 

1. 1800 RELOCATABLE DIAGNOSTIC LOADER 



CARD 
PAPER TAPE 



08B1 
08B0 



2.2 



PURPOSE 



TO STANDARDIZE THE DESIGN, CREATION, OPERATION, COMMUNICATION AND 
LISTING FORMAT OF DIAGNOSTIC FUNCTION TESTS. AND TO PROVIDE THE 
CAPABILITY FOR CREATING A LARGER SYSTEM INTERACTION PROGRAM FROM 
INDIVIDUAL DIAGNOSTIC FUNCTION PROGRAMS. 



2. REQUIREMENTS 

2.1 PROGRAM 



A. PREREQUISITES 

THE DIAGNOSTIC MONITOR HEADER (0800) MUST PRECEDE THE MONITOR 
PROGRAM DURING THE INITIAL LOAD. A SUCCESSFUL COMPLETION OF THE 
DIAGNOSTIC MONITOR HEADER PROGRAM WILL CAUSE THE DIAGNOSTIC 
RELOCATABLE LOADER (PRECEDING) THE DIAGOSTIC MONITOR TO READ 

INTO CORE STORAGE OR IF PAPER TAPE WILL WAIT (B REG=30B9) 
INFORMING THE OPERATOR TO LOAD THE RELOCATABLE DIAGNOSTIC LOADER 
(PAPER TAPE). SHOULD AN ERROR BE DETECTED IN THE DIAGNOSTIC 
MONITOR HEADER PROGRAM A WAIT WILL OCCUR WITH THE PID OF THE 
PROGRAM TO BE RUN IN BITS 8-15 OF THE B REGISTER. THE 
• 'APPROPRIATE PROGRAM SHOULD THEN BE RUN FROM THE LIST BELOW. 



2. 1800 MONITOR ENGLISH MESSAGE DECK 080C 

USE OF THIS DECK IS REQUIRED IF ENGLISH LANGUAGE PRINTOUTS 
ARE DESIRED FOR PROGRAMS OTHER THAN THE MONITOR. THIS 
DECK IS AVAILA8LE ONLY FOR CARD IPL, AND CANNOT BE USED 
WITH THE DIMAL SYSTEM. 

HARDWARE 

A. 1801 OR 1802 

B. 4K CORE STORAGE 

C. 1442 OR 1054 

D. 1053/1816 OR 1443 



3. OPERATING PROCEDURE 

3.1 STANDARD MONITOR USE PROCEDURE 

1. CLEAR STORAGE TO 70FF 

A. SET DATA ENTRY SWITCHES TO 70FF. 

B. SET CHECK STOP SWITCH TO NO. 

C. SET WRITE STORAGE PROTECT SWITCH TO YES. 

D. SET MODE SWITCH TO RUN. 

E. HOLD CLEAR STORAGE KEY DOWN AND PRESS START. 

F. PRESS STOP TO TERMINATE CLEAR OPERATION. 

G. SET DATA ENTRY SWITCHES TO 0000. 

H. SET WRITE STORAGE PROTECT SWT TO NO ANO CHECK STOP 
TO ON. 

2. LOAD MONITOR. 

A. CARD VERSION 

1) PLACE IN THE 1442 HOPPER, 

(1> THE RELOCATABLE DIAGNOSTIC LOADER. 

(2) THE DIAGNOSTIC MONITOR ANO EDIT CAROS. 

(3) ALL PROGRAMS TO BE RUN, MUST INCLUDE EDIT CARDS. 
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(REP. A) 



(REF.B) 



2) 
3) 
4) 



(4) THE MONITOR ENGLISH MESSAGE DECK (PID 080C) IF 

ENGLISH LANGUAGE PRINTOUTS ARE DESIRED FOR PROGRAMS 
OTHER THAN MONITOR. IF THE ENGLISH DECK IS USED 
OVERLAP MODE MUST BE SELECTED. 

NOTE. ..THE ENGLISH MESSAGE DECK LOADER AND THE ENGLISH 
PRINT ROUTINES IN MONITOR ARE LOADED INTO THE HIGHEST 
POSSIBLE CORE LOCATIONS. THESE SECTIONS MAY BE OVERLAID 
BY SUBSEQUENT LOADING OF TEST PROGRAMS. IF THIS HAPPENS 
NO ENGLISH WILL BE PRINTED FOR ANY PROGRAM AND THE 
ENGLISH MESSAGE DECK WILL NOT LOAD. 

PRESS 1442 START KEYt READY LIGHT SHOULD COME ON. 

PRESS RESET KEY. 

PRESS PROGRAM LOAD BUTTON 



A) IF MONITOR LOADS CORRECTLY, MESSAGE C001 IS 
PRINTED COMMANDING OPERATOR TO SELECT PROGRAM LOAD 
OPTIONS. (REFER C001 MESSAGE SECTION 4.2) 

B) IF THE LOAD IS NOT CORRECT, THERE ARE 
TWO POSSIBLE INDICATIONS, 

(1) AN ERROR WAS DETECTED IN THE RELOCATABLE 
DIAGNOSTIC LOADER. THESE ERRORS GO TO A WAIT 
INSTRUCTION WITH THE I REGISTER LESS THAN 
012C. (SEE RELOCATABLE DIAGNOSTIC LOADER 
DOCUMENTATION FOR AN EXPLANATION OF THE 
ERROR WAITS). 

(2) AN EDIT ERROR WAS DETECTED BY THE MONITOR 
SYSTEMS EDIT ROUTINE. THESE ERRORS ARE 
INDICATED BY A WAIT INSTRUCTION WITH THE I 
REGISTER GREATER THAN /012C. REFER TO THE 
PROGRAM HALT DESCRIPTION SECTION OF THE MONITOR 
LISTING FOR AN EXPLANATION OF THESE ERRORS. 

5) SELECT PROGRAM LOAD OPTIONS 

A) SET DATA ENTRY SWITCHES AS DESIRED 

REFER TO COMMAND MESSAGE C001 SECTION 4.2. 

B) PRESS CONSOLE START BUTTON- 
PROGRAMS) SHOULD LOAD. IF PROGRAM! S) LOAD 
CORRECTLY, THE MONITOR WILL PRINT A DATA MESSAGE 
AFTER EACH PROGRAM IS LOADED. 

C) IF THE PROGRAM DOES NOT LOAD CORRECTLY, THERE ARE 
TWO POSSIBLE INDICATIONS. 

(1) SAME AS 3.1.2.A.4.B.1 (REF. B) 

(2) AN ERROR WAS DETECTED BY THE MONITOR PROGRAM 
EDIT ROUTINE OR THE ENGLISH MESSAGE DECK LOADER 
ROUTINE. THESE ERRORS ARE INDICATED BY A WAIT 
INSTRUCTION WITH THE I REGISTER GREATER THAN 
/012C. REFER TO THE PROGRAM HALT DESCRIPTION 
SECTION OF THE MONITOR LISTING FOR AN EXPLANATION 
OF THESE ERRORS. 

6) WHEN THE READER BECOMES NOT READY, PRESS START ON THE 
1442 TO ALLOW READING OF THE LAST CARD. THE MONITOR WILL 
BEGIN EXECUTION AND IF THE LOAD AND GO OPTION WAS 
SELECTED ALL TEST PROGRAMS WILL BE EXECUTED. GO TO 
SECTION 3.1.3 (REF. J). 
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B. PAPER TAPE VERSION 

1) LOAD THE RELOCATABLE DIAGNOSTIC LOADER 

A) PLACE THE TAPE FEED HOLE SECTION (WHICH FOLLOWS THE 
PROGRAM TITLE) IN THE TAPE READ STATION. 

B) PRESS CONSOLE RESET KEY. 

C) PRESS CONSOLE LOAD KEY. (THE TAPE SHOULD START 
LOAOING). AFTER APPROX. 80 SECONDS A WAIT 
INSTRUCTION WILL BE ENCOUNTERED WITH THE I REGISTER 
LESS THEN 012C AND THE B REGISTER CONTAINING 30FF. 

2) LOAD THE MONITOR PROGRAM 



(REF.C) 
(REF.D) 



A) 



B) 



PLACE THE DELETE HOLE SECTION (WHICH FOLLOWS THE 
PROGRAM TITLE) IN THE TAPE READ STATION. 
•'RESS CONSOLE START. (THE TAPE SHOULD START 
LOADING). WHEN THE PROGRAM IS COMPLETELY LOADED A 
WAIT INSTRUCTION WILL BE ENCOUNTERED WITH THE I 
REGISTER GREATER THEN 012C AND THE B REGISTER 
CONTAINING 3005. LOAD THE PAPER EDIT TAPE IN THE 
1054 OR ENTER THE EDIT DATA MANUALLY. 



(REF.E) 



3) 



CHOOSE ONE OF THE 



LOAD THE PROGRAM EDIT INFORMATION. 
EDIT METHODS - 

AUTO EDIT 
SEMI-AUTO EDIT 
MANUAL EDIT 



A) AUTO-EDIT 

TO INITIATE THE CONTINUOUS LOAD OPERATION OF AN 
ENTIRE EDIT TAPE. 

(1) PLACE THE FEED HOLE SECTION WHICH PRECEDES THE 
PROGRAM EDIT TAPE IN THE TAPE READ STATION. 

(2) TURN SENSE/PROGRAM SWITCH ON PC CONSOLE TO ITS 
OFF POSITION (DOWN). 

(3) PRESS CONSOLE START KEY. (THE EDIT TAPE SHOULD 
START LOADING AND CONTINUE UNTIL THE ENTIRE EDIT 
RECORD IS READ). 

(4) IF THE EDIT TAPE DOES NOT LOAD CORRECTLY REFER TO 
SECTION 3. 1.2. A. 4. B (REF. A). 

B) SEMI-AUTO EDIT 

TO READ AN EDIT TAPE IN THE STOP AND GO MODE. THIS 
MODE OF READING ALLOWS THE OPERATOR TO CHANGE ANY 
EDIT RECORD ON AN EDIT TAPE. (AN EDIT RECORD 
CONTAINS THE SAME INFORMATION AS THE CORRESPONDING 
EDIT SHEET). 

(1) PLACE THE FEED HOLE SECTION WHICH PRECEDES THE 
EDIT TAPE IN THE TAPE READ STATION. 

(2) TURN SENSE/PROGRAM SWITCH ON PC CONSOLE TO ITS 
ON POSITION (UP). 

(3) PRESS CONSOLE START KEY TO START THE TAPE READER. 
WHEN AN EDIT RECORD IS READ A WAIT INSTRUCTION 
WILL BE ENCOUNTERED WITH THE I REGISTER LESS THEN 
012C AND THE B REGISTER CONTAINING 30FE. 

(REFER LOADER DOCUMENTATION) 

(4) IF THE EDIT RECORD JUST READ CONTAINS THE DESIRED 
INFORMATION RETURN TO STEP 3. IF HOWEVER IT IS 
DESIRED TO CHANGE THE EDIT RECORD REFER TO MANUAL 
ENTRY OF EDIT INFORMATION. 3.1.2.B.3.C (REF. F). 
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<REF.F> 



C) MANUAL ENTRY OF EDIT INFORMATION 

THIS PROCEDURE IS USED TO ENTER EDIT INFORMATION OR 
CHANGE A PREVIOUSLY ENTERED EDIT ENTRY ON PAPER TAPE. 
TO PROPERLY USE THIS PROCEDURE FOLLOW THE STEPS 

BELOW. 

(1) THE OPERATOR MUST DETERMINE WHAT EDIT 
INFORMATION HE DESIRES TO ENTER. USE THE EDIT 
SHEETS PROVIDED WITH THE PROGRAM DOCUMENTATION. 

(2) TURN THE MODE SWITCH TO LOAD. 

(3) PRESS CONSOLE RESET BUTTON. 

(4) AN IMAGE OF THE DESIRED EDIT INFORMATION MAY NOW 
BE ENTERED INTO CORE. PLACE THE FIRST EDIT WORD 
(WHICH STARTS IN COLUMN 2 OF THE EDIT SHEETS) IN 
THE DATA ENTRY SWITCHES. 

(5) PRESS THE CONSOLE START BUTTON. 

(6) PLACE ADDITIONAL EDIT WORDS IN THE DATA ENTRY 
SWITCHESt PRESSING THE START BUTTON AFTER EACH 
SETUP OF THE SWITCHES. 

(7) WHEN A COMPLETE IMAGE OF AN EDIT CARD HAS BEEN 
LOADED, TURN THE MODE SWITCH TO DISPLAY. 

(8) PRESS THE CONSOLE START BUTTON UNTIL 7000 
APPEARS IN THE B REGISTER. 

(9) TURN THE MODE SWITCH TO RUN. 
(lO)PRESS THE CONSOLE START BUTTON. 

(11) IF THE ENTRY WAS NOT AN 'END OF EDIT*, THE 
PROGRAM WILL WAIT WITH THE B REGISTER =3005. 
RETURN TO STEP (2). ENTERING ONLY THE IMAGE OF 
ONE EDIT CARD AT A TIME. 

(12) IF THE EDIT ENTRY WAS AN 'END OF EDIT' (FFFF), 
PROCEED AS FOLLOWS- 

A. IF THE MONITOR PROGRAM HAS JUST BEEN EDITED, 
GO TO SEC 3.1.2.B.4 (REF G). 

B. IF IN BOOTSTRAP MODE, THE MONITOR WILL BEGIN 
EXECUTION. GO TO SEC. 3.1.3 (REF. J). 

C. IF IN OVERLAP MODE, THE MONITOR WILL WAIT 
WITH THE B REGISTER =3006. IF MORE PROGRAMS 
ARE TO BE LOADED, GO TO SEC. 3.1.2.B.2.A 
(REF. C). IF THE LAST PROGRAM DESIRED HAS 
BEEN LOAOED, PRESS THE CONSOLE RESET AND START 
BUTTONS. THE MONITOR WILL BEGIN EXECUTION. 

GO TO SECTION 3.1.3 (REF. J). 



(REF.G) 



4) 



MONITOR LOAD STATUS 
A) 



B) 



IF MONITOR AND ITS EDIT INFORMATION LOADS CORRECTLY, 
MESSAGE C001 IS PRINTED COMMANDING OPERATOR TO SELECT 
PROGRAM LOAD OPTIONS. 

IF MONITOR DOES NOT LOAD CORRECTLY, THERE ARE TWO 
POSSIBLE INDICATIONS, 



5) 



(1) REFER TO SECTION 3. 1.2. A. 4. B (REF.B). 
SELECT PROGRAM LOAD OPTIONS. 

A) REFER TO COMMAND MESSAGE C001 IN SECTION 4.2. 

B) PRESS CONSOLE START. 

A WAIT INSTRUCTION WITH THE B REGISTER CONTAINING 
3006 WILL BE ENCOUNTERED TO INDICATE THAT THE SYSTEM 
IS READY FOR THE LOADING OF ANOTHER PROGRAM. 
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3A 



(REF.H) 



(REF. I ) 



(REF. J) 



(REF.K) 



(REF.L) 



6) LOAD THE DESIRED MONITOR CONTROLLED DIAGNOSTIC PROGRAM. 

(A) REFER TO SECTION 3.1.2.B.2.A (REF.C) AND 3.1.2.B.2.B 
(REF.D). 



7) 
8) 



LOAD THE PROGRAM EDIT INFORMATION. REFER TO SECTION 
3.1.2.B.3 (REF.E). 



CHOOSE ONE OF THE FOLLOW ING- 

A) 

B) 



IF BOOTSTRAP MODE WAS SELECTED THE MONITOR WILL BEGIN 
EXECUTION. GO TO 3.1.3 (REF. J). 
IF OVERLAP MODE WAS SELECTEO. 

1) IF MORE PROGRAMS ARE DESIRED TO BE LOADED GO TO 
STEP 3.1.2.B.6 (REF.H). 

2) IF THE LAST PROGRAM IN THE SERIES HAS BEEN LOADED 
DEPRESS CONSOLE RESET AND START. GO TO 3.1.3 
(REF. J). 



C. DIMAL SYSTEM 

THE DIAGNOSTIC MONITOR WILL BE AUTOMATICALLY LOADED AND 
EDITED BY THE DIMAL SYSTEM WHEN A MONITOR DEPENDENT PROGRAM 
HAS BEEN SELECTED BY THE OPERATOR AT DIMAL WAIT 400. 

IF THE DIAGNOSTIC MONITOR HAS BEEN LOADED AND EDITED 
CORRECTLY, MESSAGE C001 WILL BE PRINTED AND THE 
DIAGNOSTIC MONITOR WILL STOP AT WAIT 2, B REG =3002. 
SELECT PROGRAM LOAD OPTIONS. (REFER TO MESSAGE C001 SEC. 4.2 

PRESS THE CONSOLE START BUTTON. THE DIAGNOSTIC MONITOR 
WILL RETURN TO DIMAL TO LOAD THE DESIRED FUNCTION TESTS. 
REFER TO DIMAL DOCUMENTATION SECTION 3.3.2 FOR OPERATING 
PROCEDURES. 



3. SELECT MONITOR CONTROL OPTIONS. 

A. TABLE SHOWS MONITOR CONTROL SWITCH OPTIONS. 

B. IF NO CONTROL OPTIONS ARE DESIRED, GO TO 3.1.4 (REF.K). 

C. SET DESIRED SWITCHES AND PRESS CONSOLE INTERRUPT. 

D. MONITOR PRINTS ACKNOWLEDGE MESSAGE. 

4. SELECT PROGRAM CONTROL OPTIONS. 

REFER TO SEC. 3.2.5 OF THE INDIVIDUAL PROGRAM DESCRIPTIONS IF 
THESE OPTIONS ARE DESIRED. IF NO OPTIONS ARE DESIRED GO TO 3.1.5 
(REF.L). 

5. INSTRUCT MONITOR TO EXECUTE. IF LOAD AND GO WAS SELECTED 
PROGRAMS WILL ALREADY BE EXECUTING. 

A. TABLE 1 SHOWS MONITOR EXECUTE FUNCTION SWITCHES. 

B. SET SWITCHES AND PRESS CONSOLE INTERRUPT FOR EACH 
PROGRAM. 

C. MONITOR PRINTS ACKNOWLEDGE MESSAGE AND EXECUTES 
PROGRAM! S) IN CORE. 

6. BYPASS UNDESIRED PRINTOUT. 

A. TABLE 2 SHOWS SWITCH SETTINGS FOR BYPASS PRINTOUT OPTION. 

B. SET DESIRED SWITCHES AND PRESS CONSOLE INTERRUPT. 

C. MONITOR PRINTS ACKNOWLEDGE MESSAGE. 



DATE 
EC NO. 



03JUL68 
411944 



15N0V68 
411944A 



14N0V69 
431319 



17APR70 
431321 



PROG ID 


0801-* 


DATE 


03JUL68 


15N0V68 


14N0V69 


17APR70 
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PROG ID 
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3A 
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TABLE 



MONITOR FUNCTION 
PROGRAM CONTROL 



»«»#««*»«»*****«*** i. seT FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND 1. 

* SENSE/PROGRAM * 2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 
*01234567* 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 
» * 4. PRESS CONSOLE INTERRUPT. 

♦ 00000001* 



* 

♦ 

* 

* 

» 

* 
* 



DATA ENTRY SWITCHES 



* DESCRIPTION 



123456789 10 1 



12 13 14 15 * 



**«*#**#***»«*****#***** t********* 



* 
* 
* 
* 
* 
* 

* 
* 

.RETURN TO LOADER (LOAD NEW CORE LOAD)* 
.BYPASS MONITOR E009 PRINTOUTS * 



..HALT 

.HALT ON ERROR 

..BYPASS ALL DFT ERROR PRINTOUTS 
..LOOP ON ERROR 
..LOOP PROGRAMS 

.BYPASS ENGLISH PRINTOUTS 



«*««**4*#**« *$#**# «*******»####******#«##&#*« 



MONITOR FUNCTION COMMENTS * 

DE SW * 

15-0N«HALT * 

SELECTION OF THIS OPTION WILL CAUSE THE MONITOR TO HALT AT WAIT THREE * 

AFTER EACH PASS THROUGH THE POLLING SECTION OF THE CONTROL ROUTINE. * 

THIS WILL ALLOW EACH EXECUTING PROGRAM TO BE POLLED ONE TIME FOR EACH * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 12-ON-LOOP ON ERROR 

* THIS OPTION WILL CAUSE THE MONITOR ERROR ROUTINE TO TRANSFER CONTROL 

* TO THE LOOP ON ERROR ADDRESS IN THE PROGRAM IN WHICH THE ERROR 

* OCCUREO. THE TEST PROGRAM SHOULD THEN REPEAT THE FAILING OPERATION. 



DEPRESSION OF THE START BUTTON. 

14-0N*HALT ON ERROR 

SELECTION OF THIS OPTION WILL CAUSE THE MONITOR TO HALT AT WAIT 8 
EACH TIME A DFT PROGRAM CALLS ON THE MONITOR ERROR ROUTINE. 

13-0N-BYPASS ERROR PRINTOUTS 

THIS OPTION WILL INHIBIT THE PRINTING OF ERROR MESSAGES INITIATED 
BY MONITOR CONTROLLED PROGRAMS. MONITOR ERROR PRINTOUTS WILL NOT BE 
SUPPRESSED. 



* 

* U-ON-LOOP PROGRAMS 

* THIS OPTION WILL CAUSE ALL PROGRAMS SELECTED FOR EXECUTION TO LOOP 

* CONTINUOUSLY. 

* 

* 
* 

* PORTION OF ALL PRINTOUTS. THIS IS THE ONLY MONITOR OPTION WHICH WILL * 
NOT BE AUTOMATICALLY DE-SELECTED WHEN A RETURN TO THE LOADER OR A * 
MONITOR RESTART IS EXECUTED. TO DE-SELECT THIS OPTION EXECUTE MONITOR* 
FUNCTION WITH SWITCH 10 OFF. THIS OPTION MAY BE SELECTEO DURING * 
PROGRAM LOADING IF IT IS DESIRED TO BYPASS PRINTING OF PROGRAM LOAO * 
OPTIONS. IF THIS IS DONE THE SWITCH SETTINGS MUST NOT BE CHANGED * 
UNTIL THE A003 PRINTOUT OCCURS SINCE THE SWITCHES CANNOT BE READ UNTIL* 



10-0N=BYPASS ENGLISH PRINTOUTS 

SELECTION OF THIS OPTION WILL INHIBIT THE PRINTING OF THE ENGLISH 



* 
* 
* 
* 
* 
* 

* THE MONITOR RECEIVES CONTROL FROM THE LOADER. * 

* * 

* 9-0N-RETURN TO LOADER * 

* SELECTION OF THIS OPTION WILL CAUSE ALL EXECUTING PROGRAMS TO BE * 

* DE-EXECUTEDt ALL MONITOR OPTIONS TO BE DE-SELECTED (EXCEPT BYPASS * 

* ENGLISHIt THE MONITOR C003 MESSAGE TO BE PRINTED, AND A HALT AT * 

* WAIT 4. (REFER TO SECTION 4.2 C003 MESSAGE) * 

* * 

* 8-ON-BYPASS MONITOR E009 MESSAGES * 

* THIS OPTION ALLOWS SUPPRESSION OF E009 (UNEXPECTED INTERRUPT) MESSAGES* 

* * 

*#**#**##i).#***>»*******a**»#>K##*#*#**«*#*# a************************************** 



TABLE 1 



MONITOR FUNCTION 
XEQ/OXEO 



* 
* 
* 

# 



SENSE/PROGRAM * 
1234567* 



10 1* 



1. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET MONITOR PID IN SENSE/PROGRAM SWITCHES 2 THRU 7. 

3. SET PID OF PROGRAM TO BE EXECUTED IN DATA ENTRY SWITCHES 
10 THROUGH 15. 

4. SET DATA ENTRY SWITCH 7 ON TO EXECUTE, OFF TO DE-EXECUTE 

5. PRESS CONSOLE INTERRUPT 



*«*«*******«»*#****#*******«:********************«**«**************************** 



* 

* 

* 

* 



DATA ENTRY SWITCHES 
2 3 4 5 6 7 8 9 10 11 12 13 14 15 



1 



* DESCRIPTION 

* 



* 

* 

* 

EXECUTE PROGRAM WHOSE PID IS XXXXXX. * 

* * 
♦♦Hi***************************************************************************** 

* XXXXXX DEEXECUTE PROGRAM WHOSE PID IS XXXXXX.* 

* * 

* ♦a**.************************************************************************** 



* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



PID 

( BINARY ) 



(HEX) 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 













1 
1 
1 
1 
1 
1 
1 



* 
* 

* 
* 
* 
* 
* 
* 
* 

1. * 21 
* 22 

* 
* 
* 
* 



01 
04 
05 
06 
07 
08 
09 
OA 
OF 



23 
24 
25 
26 
27 



PROGRAMS AVAILABLE . * 

FOR MONITOR EXECUTION. * 

PROGRAM TITLE * 

* 

M0N1T0R=XEQ/DXEQ ALL PROGRAMS * 

1054/1055 FUNCTION TEST * 

1627 FUNCTION TEST * 

1053/1816 FUNCTION TEST * 

2400 FUNCTION TEST * 

2315 DIAG DISK INIT. * 

2310 FUNCTION TEST * 

1443 FUNCTION TEST * 

1442 FUNCTION TEST * 

A I DCC RANDOM * 

Al DCC SEQUENTIAL * 

AI DPC FUNCTION TEST * 

DI DCC FUNCTION TEST * 

DI DPC FUNCTION TEST * 

AO FUNCTION TEST * 

00 FUNCTION TEST * 



******^****»*********************i(^******** ************************************ 



MONITOR FUNCTION 1 COMMENTS 



* 
* 

THIS FUNCTION IS USED TO EXECUTE AND DE-EXECUTE MONITOR CONTROLLED PROGRAMS.* 

* 
* 
* 
* 

* 
* 

TO XEO/DXEQ ALL PROGRAMS IN CORE, PERFORM THE XEQ/DXEQ FUNCTION WITH THE * 
MONITOR PID (01) IN DE SWITCHES 8 TO 15. 



DE SWS 

7-0N=EXECUTE PROGRAM 

-OFF=DE-EXECUTE PROGRAM 
8-15*PID OF PROGRAM TO XEO/DXEQ 



* 
* 
******»*>l^**********#**»* *#************## *************************************** 



DATE 

EC NO. 



03JUL68 
411944 



15N0V68 
411944A 



14N0V69 
431319 



17APR70 
431321 



PROG ID 


0801-* 


DATE 


03JUL68 


15N0V68 


14N0V69 


17APR70 
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4A 
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TABLE 2 



MONITOR FUNCTION 3 
BYPASS PRINTOUT 



* SENSE/PROGRAM * 
1 2 3 A 5 6 7 



11000001 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THRU 7. 

3. SET FIRST TWO DIGITS OF PID FIELD IN PRINTOUT IN 
DATA ENTRY SWITCHES THRU 7. 

4. SET FIRST AND LAST DIGITS FROM MID FIELD IN PRINTOUT 
IN DATA ENTRY SWITCHES 8 THRU 15. 

5. PRESS CONSOLE INTERRUPT. 



i**************************************************************^********:),^^**^** 



12 3 4 



DATA ENTRY SWITCHES 

5 6 7 8 9 10 11 12 13 14 15 



XXXXXXXX 



X X 



* DESCRIPTION * 

* * 

* # 

* FIRST TWO DIGITS FROM THE PID FIELD * 

* IN THE MESSAGE TO BE BYPASSED. * 

* * 

* FIRST AND LAST DIGITS FROM THE MID * 

* FIELD IN THE MESSAGE TO BE BY PASSED.* 



#*#**************** 4**^*$ ********** #*$**# *************************************** 



MONITOR FUNCTION 3 COMMENTS 

THIS FUNCTION MAY BE USED TO INHIBIT THE PRINTING OF ANY SELECTED MESSAGE. 
TO USE THIS FUNCTION REFER TO THE UNDESIRED PRINTOUT AND PERFORM THE 
FUNCTION 3 SELECTION WITH THE DE SWITCHES SET AS SHOWN BELOW. 

DE SWS 

0-7=FIRST TWO HEX DIGITS FROM THE PID FIELD IN THE UNDESIRED PRINTOUT. 
8-U=FIRST HEX DIGIT FROM THE MID FIELD IN THE UNDESIRED PRINTOUT. 
12-15=LAST HEX DIGIT FROM THE MID FIELD IN THE UNDESIRED PRINTOUT. 

FOR EXAMPLE TO BYPASS 0900 E002 PRINTOUTS THE DE SWITCHES WOULD BE SET 
TO 09E2. 

NOTE THAT THIS OPTION HAS NO PROVISION FOR ENTERING THE 2ND AND 3RD DIGITS 
FROM THE MID. FOR THIS REASON CAUTION SHOULD BE USED TO PREVENT BYPASSING 
OF DESIRED PRINTOUTS. IN THE ABOVE EXAMPLE 0900 E012 PRINTOUTS WOULD ALSO 
BE BYPASSED. IT IS RECOMMENDED THAT THE PRINTOUT SECTION OF THE APPLICABLE 
PROGRAM DOCUMENTATION BE CHECKED FOR SEVERAL MESSAGES HAVING THE SAME FIRST 
AND LAST DIGITS IN THE MID BEFORE USING THIS OPTION. 



3.2 PROGRAM HALTS 

A DESCRIPTION OF THE INDIVIDUAL PROGRAM WAITS CAN BE FOUND AT THE 
BEGINING OF THE PROGRAM LISTING. THE CORRECT WAIT DESCRIPTION 
CAN BE LOCATED BY COMPARING THE CONTENTS OF THE B AND I REGISTERS 
TO THE TWO COLUMNS OF 4 DIGITS APPEARING TO THE LEFT OF THE 
DESCRIPTION SECTION. 

B REGt ( FIRST 4 DIGIT GROUP ) CORRESPONDS TO B REG READING. 

I REGt ( SECOND 4 DIGIT GROUP ) CORRESPONDS TO I REG READING. 

IF TIMERS ARE LEFT RUNNING WHEN A WAIT IS ENTERED, STOP THE TIMER BY 
TURNING THE MODE SWITCH TO SI THEN BACK TO RUN. THE CORRECT WAIT 
DESCRIPTION MAY THEN BE LOCATED BY REFERING TO THE I REG. 

IF A CYCLE STEAL OCCURS AFTER A WAIT IS ENTERED THE CONTENTS OF THE 
B REG MAY BE CHANGED. USE THE I REG TO LOCATE THE CORRECT WAIT 
DESCRIPTION IF THIS OCCURS. 

A WAIT WITH THE I REGISTER LESS THAN /012C IS A LOADER WAIT. 
REFER TO THE RELOCATABLE LOADER DOCUMENTATION. 
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THE FOLLOWING TABLE PROVIDES A BRIEF DESCRIPTION OF THE OPERATOR 
ACTION REQUIRED FOR EACH NORMAL MONITOR WAIT. REFER TO MONITOR 
LISTING FOR ERROR WAITS AND TRAPS AND MORE DETAILED NORMAL WAIT 
DESCRIPTIONS. 

B REG ACTION REQUIRED 

3001.. ..SELECT DESIRED OPTIONS AND PROGRAMS FOR EXECUTION. 
(REFER TO TABLES 0, 1, AND 2) 

3002. ...SET PROG LOAD OPTIONS IN DE SWS AND PRESS START. 
(REFER TO MESSAGE C001 SECTION 4.2) 

3003. ...DE-SELECT HALT OPTION (FUNCTION SW 15) OR PRESS START. 

3004. ...SET PROG LOAD OPTIONS IN DE SWS AND PRESS START. 
(REFER TO MESSAGE C003 SECTION 4.2) 

3005. ...ENTER PAPER TAPE EDIT DATA. (REFER TO SEC. 3.1.2.B.3 REF.E) 
3006. ...LOAD NEXT PAPER TAPE PROG OR PRESS RESET AND START 

3.3 RESTART PROCEDURE 

PRESS STOP, RESET, AND START. THE C002 MESSAGE SHOULD BE PRINTED 
AND THE PROGRAM SHOULD HALT AT WAIT 1. IF THIS DOES NOT OCCUR THE 
PROGRAM MUST BE RELOADED. ALL MONITOR OPTIONS EXCEPT THE BYPASS 
ENGLISH OPTION WILL BE DESELECTED AND ALL PROGRAMS WILL BE 
DE-EXECUTED. OPTIONS FOR THE I/O PROGRAMS WILL REMAIN UNCHANGED. 



4. PRINTOUTS 

NOTE. ..UNLESS THE ENGLISH PRINT SECTION OF MONITOR HAS BEEN OVERLAID BY 
TEST PROGRAMS OR THE BYPASS ENGLISH OPTION IS SELECTED, ALL MONITOR 
PRINTOUTS WILL BE ACCOMPANIED BY DESCRIPTIVE ENGLISH LANGUAGE PRINTOUTS. 
THE ENGLISH PORTION OF EACH PRINTOUT IS NOT SHOWN IN THIS SECTION. 
ERROR PRINTOUTS WILL BE FLAGGED BY TWO ASTERISKS IN THE LEFT MARGIN. 



4.1 



STATUS MESSAGES 



PID MID RID RAD MODI M0D2 
0100 A001 0000 RRRR OOOY OOZZ 



STATUS MESSAGE-MONITOR HAS STARTED EXECUTION OF THE PROGRAM WHOSE PID 
IS ZZ, OR HAS TERMINATED EXECUTION OF THE PROGRAM WHOSE PID IS ZZ. 

MODI 000Y=0 DXEQ OF PROGRAM WHOSE PID IS IN MOD 2. 

000Y=1 XEQ OF PROGRAM WHOSE PID IS IN MOD 2. 
M0D2 OOZZ PID OF PROGRAM 

NOTE- THIS MESSAGE MAY FOLLOW AN A003 IF COMMUNICATION IS TO THE 
MONITOR. 



PID MID RID RAD 
0100 A002 0001 RRRR 



THIS MESSAGE MAY BE PRINTED DURING THE LOAD PHASE. THE ENGLISH 
PORTION OF THIS MESSAGE PROVIDES A SHORT SUMMARY OF THE MONITOR 
OPERATING PROCEDURES. THE ENGLISH WILL ALWAYS BE AVAILABLE FOR THIS 
MESSAGE SINCE AT THE TIME IT IS PRINTED MONITOR IS THE ONLY PROGRAM 
IN CORE. THIS MESSAGE MAY BE BYPASSED BY PROGRAM LOAD OPTION SW 15. 



DATE 
EC NO. 



03JUL68 
411944 



15NOV68 
411944A 



14N0V69 
431319 



17APR70 
431321 



PROG ID 


0801-* 


DATE 


03JUL68 


15NOV68 


14N0V69 


17APR70 
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STATUS MESSAGE-THE MONITOR ACKNOWLEDGES ACCEPTANCE OF THE PROGRAM/ 
SENSE SWS. AND HAS READ THE DATA ENTRY SWS. THIS PRINTOUT IS 
INITIATED VIA A CONSOLE INTERRUPT. 



5. 



SET DESIRED STARTING ADDRESS IN DE SWS. ADDRESS SELECTED MUST 

BE OOD (SW 15 MUST BE ON) AND HIGHER THAN /07FF. BE SURE THAT 

THE SELECTED ADDRESS IS WITHIN THE CORE SIZE OF THE MACHINE. 

PRESS START ONE TIME. 

ROTATE MODE SWITCH TO RUN POSITION. 

SET LOAD OPTIONS (SWS 7, 8, AND 15) IN DE SWS. 

PRESS START 



MOD 1 XOZZ 



M0D2 YYYY 



X IS THE FUNCTION LEVEL OF PROGRAM WHOSE PID IS ZZ 
INTO WHICH THE INFORMATION IN THE DATA ENTRY SWS IS TO 
BE PLACED. 

AN IMAGE OF THE DATA ENTRY SWS PLACED IN PROGRAMS ZZ AT 
FUNCTION LEVEL X SPECIFIED IN MOD 1. 



PID MID RID RAD 
0100 C002 0001 RRRR 



PID MID RID RAD 
0100 A004 0001 RRRR 



COMMAND MESSAGE-MONITOR RESTART HAS BEEN EXECUTED. ALL TEST PROGRAMS 
HAVE BEEN DE-EXECUTED AND ALL MONITOR OPTIONS EXCEPT THE BYPASS 
ENGLISH OPTION HAVE BEEN DESELECTED. SELECT MONITOR OPERATING 
OPTIONS AND PROGRAMS FOR EXECUTION AS DESIRED. (REFER TABLES 0, 1, 2) 



STATUS MESSAGE-INSUFFICIENT CORE STORAGE IS AVAILABLE TO READ IN ALL 
SECTIONS OF THE ENGLISH MESSAGE DECK WHICH ARE APPLICABLE TO PROGRAMS 
IN CORE. THE MONITOR WILL FEED THE REMAINING CARDS IN THE HOPPER. 
ENGLISH MESSAGES WILL BE AVAILABLE FOR MONITOR MESSAGES ONLY. 



PID MID RID RAD 
0100 C003 0001 RRRR 



PID MID RID RAD 
0100 A005 0001 RRRR 



STATUS MESSAGE-PROGRAM LOAD IS COMPLETE. 
OPTIONS (REFER TO TABLES 0, It AND 2). 



SELECT DESIRED OPERATING 



COMMAND MESSAGE-THE RETURN TO LOADER OPTION HAS BEEN SELECTED. 

TO LOAD MORE PROGRAMS... 

1. READY PROGRAM(S) IN READER (NOT REQUIRED FOR D1MAL). MONITOR MAY 
BE RELOADED BUT IS NOT REQUIREO. DO NOT PLACE LOADER IN READER. 



PID MID RID RAD 
0100 A006 0001 RRRR 



2. 



3. 



ENTER PROG LOAD OPTIONS. 
APPLICABLE IN THIS CASE). 
PRESS CONSOLE START KEY 
MESSAGE TO BE REPEATED). 
LOADING PROCEDURE. 



REFER TO C001 MESSAGE (SWITCH 15 IS NOT 

(CONSOLE INTERRUPT WILL CAUSE THE C003 
REFER TO SECTION 3 FOR DETAILS OF 



4.2 



STATUS MESSAGE-THE LAST PROGRAM LOADED OVERLAID THE ENGLISH PRINT 
SECTION OF THE MONITOR. NO FURTHER ENGLISH PRINTOUTS WILL OCCUR. 



COMMAND MESSAGES 



PID MID RID RAD 
0100 C001 0001 RRRR 



COMMAND MESSAGE-SELECT PROGRAM LOAD OPTIONS. 

1. SET WRITE STORAGE PROTECT TO YES 

CHECK STOP TO OFF 

SENSE/PROGRAM SWITCHES ALL OFF 

2. SET DATA ENTRY SWITCHES 

15. .OFF. .ALLOW MONITOR OPERATION SUMMARY PRINTOUT A002. 
ON.. BYPASS MONITOR OPERATING SUMMARY PRINTOUT A002. 
8. .OFF. .OVERLAP MODE (MUST BE OFF TO USE ENGLISH DECK) 

ON.. BOOTSTRAP MODE 
7. .OFF. .WAIT FOR OPERATOR XEQ OF PROGRAMS AFTER LOADING 

ON. .AUTOMATICALLY XEQ ALL PROGRAMS ON COMPLETION OF LOAD. 

3. PRESS CONSOLE START (CONSOLE INTERRUPT WILL CAUSE THE C001 MSG 
TO BE REPEATED). 

TEST PROGRAMS NORMALLY ARE LOADED STARTING AT ADDRESS /07FF. 
IF IT IS DESIRED TO LOAD PROGRAMS STARTING AT A HIGHER CORE 
LOCATION THE FOLLOWING PROCEDURE MAY BE USED. 

1. PROGRAM MUST BE STOPPED AT EITHER WAIT 3001 OR 3004 (B REG). 

2. ROTATE THE MODE SWITCH TO DISPLAY POSITION. 

3. PRESS START ONE TIME. 

4. ROTATE MODE SWITCH TO LOAD POSITION. 



4.3 



NOTE.. PROGRAMS (EXCEPT MONITOR) ALREADY IN CORE WILL BE DESTROYED 
WHEN NEW PROGRAMS ARE LOADED. 

IF RETURNING TO DIMAL AFTER RUNNING IN OVERLAP MODE THE 
MONITOR WILL BE RELOADED FROM THE OISK. THE C001 MSG AND 
WAIT 2 WILL THEN OCCUR AND LOAD OPTIONS MUST BE RE-ENTERED. 

TO RERUN PROGRAMS ALREADY IN CORE, PRESS RESET THEN START. 



DATA MESSAGES 



PID MID RID RAD MODI M0D2 M0D3 M0D4 
0100 D001 0001 RRRR ZZOO 07FF XXXX YYYY 

DATA MESSAGE-THIS MESSAGE FOLLOWS THE SUCCESSFUL LOADING OF EACH 
PROGRAM BY THE MONITOR. IT WILL INFORM THE OPERATOR WHAT PROGRAM 
HAS JUST BEEN LOADED, AND WHERE THAT PROGRAM HAS BEEN LOADED IN CORE. 

MODI ZZOO PID OF PROGRAM JUST LOADED. 

M0D2 07FF STARTING ADDRESS OF PROG AS IT APPEARS IN THE LISTING. 
M0D3 XXXX STARTING ADDRESS WHERE PROGRAM WAS LOADED IN CORE. 
M0D4 YYYY RELOCATION FACTOR USED BY THE LOADER WHEN LOADING 

THIS PROGRAM. 

( M0D2 + MOD 4) = MOD 3 
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ERROR MESSAGE-OPERATOR ATTEMPTED TO XEQ OR DXEO A PROGRAM WHICH HAS 
NOT BEEN LOADED INTO CORE STORAGE. 



MODI 
M0D2 
PROBABLE CAUSES OF ERROR 



000X=0 
X = l 
OOZZ 



DXEO PROGRAM WHOSE PID IS IN MOD 2. 
XEQ PROGRAM WHOSE PID IS IN MOD 2. 
PID OF PROGRAM. 



ERROR MESSAGE-ONE OF THE FOLLOWING ERRORS OCCURED WHILE LOADING THE 
ENGLISH MESSAGE DECK.. 

1. CARDS ARE OUT OF SEQUENCE. 

2. CHECK SUM ERROR (USUALLY A DEFECTIVE CARD) 

3. THE ERROR BIT WAS ON IN THE 1442 DSW. 

4. ONE OR MORE CARDS MISSING FROM THE ENGLISH MESSAGE DECK. 

5. THE ENGLISH DECK WAS NOT THE LAST PROGRAM DECK IN THE HOPPER. 

RECOVERY FROM THIS CONDITION MAY BE ATTEMPTED BY THE FOLLOWING 
PROCEDURE. 



1. OPERATOR ENTERED WRONG PID OF THE PROGRAM IN DATA ENTRY SWS. 

2. THE PROGRAM'S PID HAS BEEN WIPED OUT. 

3. DATA ENTRY SWS DID NOT READ CORRECTLY. 

NOTE- THIS MESSAGE MAY FOLLOW AN A003 IF COMMUNICATION IS TO THE 
MONITOR. 



PID MID RID RAD MODI M0D2 
0100 E001 0001 RRRR 0001 OOZZ 



ERROR MESSAGE-OPERATOR HAS ATTEMPTED TO XEQ A PROGRAM THAT IS ALREADY 
IN THE EXECUTION MODE, OR DXEO A PROGRAM THAT IS ALREADY DE-EXECUTED. 



1. 
2. 



3. 
4. 



5. 



NPRO ALL CARDS FROM THE 1442. 

PLACE THE LAST TWO ENGLISH DECK CARDS READ AND ALL REMAINING 

UNREAD CARDS BACK INTO THE HOPPER IN THE CORRECT SEQUENCE. IF 

THE ERROR WAS CAUSED BY 5 ABOVE PLACE TWO BLANK CARDS IN THE 

HOPPER. 

PRESS START ON THE 1442 

PRESS START ON THE 1800 CONSOLE. UP TO 3 DEPRESSIONS OF START 
MAY BE REQUIRED. 

CARD READING SHOULD CONTINUE. 



MODI 
M0D2 
PROBABLE CAUSES OF ERROR 



000X=0 
X=l 

OOZZ 



DXEQ PROGRAM WHOSE PID IS IN MOD 2. 
XEQ PROGRAM WHOSE PID IS IN MOD 2. 
PID OF PROGRAM. 



1. OPERATOR ENTERED WRONG PID IN DATA ENTRY SWS. 

2. DATA ENTRY SWS DID NOT READ CORRECTLY 

NOTE- THIS MESSAGE MAY FOLLOW AN A003 IF COMMUNICATION IS TO THE 

MONITOR. 



PID MID RID RAD MODI M0D2 M0D3 M0D4 M0D5 
0100 E009 0001 RRRR GGGG HHHH KKKK MMMM ZZZZ 

ERROR MESSAGE-AN INTERRUPT HAS BEEN RECEIVED BY THE MONITOR FOR A 
DEVICE WHICH HAS NOT BEEN SELECTED OR BY A DEVICE WHOSE FUNCTION 
TEST HAS JUST BEEN DEEXECUTED USING MONITOR DXEQ FUNCTION 1 
OR FROM A DEVICE WHOSE FUNCTION TEST IS NOT IN CORE. THIS 
INTERRUPT WILL BE HANDLED BY THE MONITOR'S INTERRUPT ROUTINE. 
THIS MESSAGE REQUIRES VERY CLOSE EXAMINATION OF THE OUTPUT 
SINCE IT IS HIGHLY PROBABLE THAT THE CUSTOMER'S PROCESS OR 
THE OPERATOR DESELECTING A PROGRAM WITH THE DEVICES INTERRUPT 
PENDING COULD NORMALLY CAUSE INTERRUPTIONS TO THE VARIOUS 
PROGRAMS. 



PID MID RID RAD MODI M0D2 
0100 E003 0001 RRRR XOZZ YYYY 



ERROR MESSAGE-OPERATOR IS ATTEMPTING TO COMMUNICATE WITH A PROGRAM 
WITH AN ERRONEOUS PID. 

MODI XOZZ X IS THE FUNCTION LEVEL OF THE PROGRAM WHOSE PID IS ZZ 
INTO WHICH THE CONTENTS OF THE DATA ENTRY SWITCHES 
SHOULD BE PLACED. 

M0D2 YYYY CONTENTS OF THE DATA ENTRY SWITCHES. 

PROBABLE CAUSES OF ERROR 



1. 
2. 

PID MID RID RAD 
0100 E005 0001 RRRR 



A WRONG PID ENTERED INTO THE PROGRAM/SENSE SWITCHES ZZ. 
PROGRAM/SENSE SWITCHES WERE READ INCORRECTLY. 



MODI GGGG 
M0D2 HHHH 
M0D3 KKKK 



M0D4 MMMM 



M0D5 ZZZZ 



5. COMMENTS 



THE INTERRUPT LEVEL IN ERROR. 

THE ILSW FOR THIS INTERRUPT LEVEL. 

THE AREA CODE AND MODIFIER USED BY THE MONITOR TO RESET 

THE DEVICE. THIS IS THE AREA CODE OF THE DEVICE 

WHICH CAUSED THE ERROR INTERRUPT. 

THE DSW OF THE DEVICE SPECIFIED IN MOD 3. THIS IS THE 

DSW OF THE DEVICE WHICH CAUSED THE ERROR INTERRUPT. 

THIS IS THE DSW SENSED WITH THE RESET BIT (15) ON. 

IN THE CASE OF A PROCESS INTERRUPT, M0D4 WILL BE 0000. 

THE DSW SENSED WITH THE RESET BIT (15) OFF. IN THE 

CASE OF A PROCESS INTERRUPT M0D5 WILL CONTAIN THE PISW. 



ERROR MESSAGE-AN ATTEMPT HAS BEEN MADE TO LOAD THE ENGLISH MESSAGE 
DECK AFTER THE ENGLISH DECK LOADER SECTION OF MONITOR HAS BEEN 
OVERLAID BY TEST PROGRAMS. NPRO ALL CARDS FROM THE 1442 AND PRESS 
THE CONSOLE START KEY. THIS WILL ALLOW EXECUTION OF THE TEST 
PROGRAMS BUT NO ENGLISH WILL BE PRINTED WITH ANY MESSAGES. 



IN ORDER TO FULLY UNDERSTAND THE PHILOSOPHY USED IN THE GENERATION OF 
THIS DIAGNOSTIC SYSTEM A PHYSICAL AND FUNCTIONAL DESCRIPTION OF THE 
MONITOR AND ITS COMPONENTS IS PROVIDED IN THIS SECTION. 

THIS DESCRIPTION IS DIVIDED INTO 5 SECTIONS. THE FIRST PART IS A 
GENERAL DESCRIPTION OF WHAT THE MONITOR IS INTENDED TO DO, THE 
SECOND IS A GLOSSARY OF TERMS, THE THIRD A PHYSICAL DESCRIPTION OF 
THE MONITOR COMPONENTS, THE FOURTH A FUNCTIONAL DESCRIPTION OF THE 
MONITOR, AND THE FIFTH IS A SECTION DEVOTED TO SERVICE HINTS. 
INCLUDED IN THIS SECTION ARE DESCRIPTIONS ON HOW TO MAKE PATCHES 
TO MONITOR PROGRAMS AND HOW TO HANDLE THE MULTIPLE DEVICE PROBLEM. 
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5.1 THE 1800 DIAGNOSTIC MONITOR CONSISTS OF A GROUP OF TABLES AND 

SUBROUTINES SPECIFICALLY OESIGNED TO CREATE AN INTEGRATED SYSTEM OF 
DIAGNOSTIC FUNCTION TESTS. THIS INTEGRATION IS ACHIEVED BY USING THE 
MONITOR TO — 

1. STANDARDIZE THE CREATION AND DESIGN OF DIAGNOSTIC FUNCTION TESTS. 

2. STANDARDIZE THEIR OPERATION. 

3. PROVIDE THE CAPABILITY FOR USING EACH OF THE INDIVIDUAL PROGRAMS 
AS A SUBPROGRAM IN A LARGER SYSTEM INTERACTION PROGRAM. 

4. STANDARDIZE A METHOD FOR ENTERING VARIABLE INPUT PARAMETERS INTO 
EACH OF THE INDIVIDUAL PROGRAMS. 

5. STANDARDIZE COMMUNICATION BETWEEN OPERATOR AND PROGRAM. 

STANDARD DESIGN AND CREATION OF MONITOR CONTROLLED FUNCTION TESTS IS 
ACHIEVED BY THREE METHOOS. 

1. AN AGREEMENT BY EACH SYSTEM USER, TO USE COMMON PROGRAM LABELS, 
COMMON PLACEMENT OF MONITOR REQUIRED SUBROUTINES! THOSE ROUTINES 
REFERRED TO INDIRECTLY) VIA THE FIXED ADDRESSES IN THE USERS PST 
AND STANDARD PROGRAM LISTING FORMAT AND CONTENT. 

2. THE APPLICATION OF EXPLICIT RULES, WHICH DEFINE, MONITOR 
PROGRAM INTERFACE AND COMMUNICATION. 

3. USE OF THE MONITOR SUBROUTINE LIBRARY. USE OF THE COMMON ROUTINES 
IN THIS LIBRARY PROVIDES A STANDARD METHOD FOR DOING COMMON 
TASKS. 

STANDARDIZATION OF OPERATION IS ACHIEVED BY USING THE DIAGNOSTIC 
MONITOR AS A CONTROL LINK FOR ROUTINE TO ROUTINE TRANSITION, COMMON 
SWITCH OPTIONS AND PROGRAM TO PROGRAM TRANSITION. 

INTERACTION OR OVERLAP CAPABILITY IS INHERENT IN THE SYSTEM AND IS 
ACHIEVED BY TWO METHODS. 

1. THE INTERFACE BETWEEN THE MONITOR AND THE LOADER, AND THE ABILITY 
OF THE LOADER TO RELOCATE PROGRAMS. 

2. IMPLEMENTATION OF THE EXPLICIT RULES DEFINING PROGRAM TO PROGRAM 
TRANSITION. 
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DXEQ 



EDIT 



EOIT AREA 



A WORD IMMEDIATLY PRECEEDING THE INTERRUPT ENTRY POINT OF THE USERS 
DEVICE INTERRUPT ROUTINE. THE OVA RECEIVES THE AREA CODE AND 
MODIFIERS CORRESPONDING TO THE DDEF FOR A PARTICULAR DEVICE IN A 
REQUEST DEVICE CALL. IT IS TO THIS ADDRESS +1, THE MONITOR WILL 
TRANSFER, WHEN THE INTERRUPT FOR THE DEVICE OCCURS. THE USER'S 
PROGRAM MUST NOT ALTER THE AREA CODE OR MODIFIERS PLACED IN THE DVA 
BY THE MONITOR. IT IS HOWEVER AVAILABLE TO BE PICKED UP BY THE USER 
AND INSERTED INTO THE USERS IOCC WORDS. THE DVA IS NOT CLEARED OUT 
ON A RELEASE DEVICE CALL. 



THE FUNCTION OF REMOVING A MONITOR CONTROLLED PROGRAM FROM EXECUTE 
STATUS. DETAILED INSTRUCTIONS FOR DE-EXECUTING A PROGRAM ARE GIVEN IN 
TABLE 1 OF THIS DOCUMENT. 



THE CAPABILITY OF THE 1800 DIAGNOSTIC MONITOR TO ENTER INTO AND/OR 
VARY THE SYSTEM CONFIGURATION INFORMATION REQUIRED BY THE MONITOR AND 
THE MONITOR CONTROLLED PROGRAMS. THE SYSTEM EOIT ROUTINE HANDLES THE 
EDITING REQUIRED BY THE MONITOR. THE PROGRAM EDIT ROUTINE HANDLES THE 
PARAMETER INFORMATION REQUIRED BY THE USER PROGRAM. 



A VARIABLE LENGTH STORAGE AREA AT THE END OF THE PROGRAM STATUS 
TABLE (PST) WHERE THE VARIABLE DATA FROM THE PROGRAM EDIT CARDS IS 
STORED. 



ENTRY POINT 



THE FIRST INSTRUCTION IN A SUBROUTINE THAT IS EXECUTED. THIS IS NOT 
NECESSARILY THE FIRST ACTUAL INSTRUCTION FOUND IN THE ROUTINE, NOR 
NEED IT BE THE SAME FOR EACH USE OF THE ROUTINE. «f 



A STANDARDIZED METHOD OF INPUT PARAMETERS IS ACHIEVEO THROUGH THE USE 
OF THE EDIT FEATURE IN THE MONITOR BY EACH OF THE MONITOR CONTROLLED 
FUNCTION TESTS. 

STANDARDIZATION OF COMMUNICATION IS ACHIEVED BY HAVING THE MONITOR 
ACT AS AN INTERFACE BETWEEN THE OPERATOR AND THE PROGRAM. 

THUS A COMMON FORMAT FOR, AND METHOD OF COMMUNICATION IS ACHIVED. 

5.2 TERMS 

THE FOLLOWING LIST IS A DEFINITION OF TERMS AS THEY ARE USED IN THE 
MONITOR SYSTEM OF FUNCTION TESTS. 

BOOTSTRAP (MODE) 

A MODE OF OPERATION AVAILABLE IN THE 1800 DIAGNOSTIC MONITOR THAT 
LOADS THE NEXT SEQUENTIAL FUNCTION TEST FROM THE INPUT DEVICE 
FOLLOWING COMPLETION OF THE PREVIOUS ONE. IN BOOTSTRAP MODE ONLY ONE 
FUNCTION TEST IS RESIDENT IN CORE AT ANY TIME. 

DDEF (DEVICE DEFINITION EDIT FIELD) 

A 16 BIT WORD USED TO CREATE A UNIQUE NUMBER FOR EACH DEVICE IN THE 
SYSTEM. THE NUMBER IS A COMPOSITE OF OF THE DEVICES INTERRUPT LEVEL, 
ILSW BIT AND CHANNEL NUMBER. 



EP 



AN ENTRY OF A CLOSEO SUBROUTINE ENTERED BY A BSI INSTRUCTION. 
NORMALLY A WORD AT THE TOP OF THE SUBROUTINE FOR STORAGE OF THE 
I-CTR. 



EPA (END PROGRAM ADDRESS) 



THE END PROGRAM ADDRESS IS A FIXED ADORESS IN THE USER'S PROGRAM 
STATUS TABLE (PST) WHICH POINTS TO THE USER'S END PROGRAM ROUTINE. 
A TRANSFER TO THE USER'S END ROUTINE MAY BE INITIATEO BY THE 
SENSING OF A DXEQ FUNCTION BY THE MONITOR OR THE COMPLETION OF THE 
USER'S PROGRAM, BY TRANSFERING TO THE MONITOR END ROUTINE. THE EPA 
ROUTINE EXITS VIA EP. 



EQUATE TABLE 



A TABLE USED AT THE BEGINNING OF THE MONITOR CONTROLLED PROGRAMS 
DEFINING SYMBOLIC LOCATIONS TO THE USER PROGRAM TO ABSOLUTE LOCATIONS 
IN THE MONITOR TRANSFER VECTOR. 



IEP (INTERRUPT ENTRY POINT) 



AN ENTRY TO A CLOSED SUBROUTINE IN INTERRUPT, ENTERED BY A BSI OR A 
FORCED BSI INSTRUCTION. 
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INTERACTION 



A CAPABILITY OF THE 1800 DIAGNOSTIC MONITOR TO CONTROL THE 
OPERATION OF TWO OR MORE PROGRAMS OR DEVICES SIMULTANEOUSLY. 
INTERACTION (OVERLAP) DIAGNOSTIC TESTS ARE RUN TO DETERMINE IF ANY 
HARDWARE TIMING INTERFERENCE EXISTS DURING THE SIMULTANEOUS OPERATION 
OF TWO OR MORE I/O DEVICES. INTERACTION IS NORMALLY ACCOMPLISHED BY 
INTERSPERSING COMPONENT OPERATIONS OR ACTIONS IN TIME. 



INTERRUPT ROUTINE 



A ROUTINE WHICH PERFORMS A DESIRED OPERATION DUE TO THE OCCURRENCE OF 
AN INTERRUPT. THE MONITOR PROGRAM CONTAINS A SET OF 12 (DEFINABLE IN 
EDIT) INTERRUPT ROUTINES. EACH OF THE USER PROGRAMS REQUIRES A 
SERVICE ORIENTED INTERRUPT ROUTINE. 



IPA (INITIAL PROGRAM ADDRESS) 



INTERFACE 



THE INITIAL PROGRAM ADDRESS IS A FIXED ADDRESS IN THE USER'S PROGRAM 
STATUS TABLE (PST) WHICH POINTS TO THE INITIALIZATION ROUTINE IN THE 
USER'S PROGRAM. PRIOR TO LEAVING THE INITIALIZATION ROUTINE. THE 
USER PLACES THE ADDRESS HE WISHES TO BEGIN EXECUTION OF HIS PROGRAM 
IN THE MLSCF PORTION OF THE PST AND RETURNS VIA EP. 



A COMMON BOUNDARY OR COMMUNICATION AREA BETWEEN TWO OR MORE PROGRAMS. 
THE INTERFACE BETWEEN THE 1800 DIAGNOSTIC MONITOR AND IT'S USER 
PROGRAMS IS PROVIDED THROUGH THE USE OF THE EQUATE TABLESt TRANSFER 
VECTOR, MONITOR PID TABLE, AND THE USERS PROGRAM STATUS TABLES. 



LOAO AND GO 



A MONITOR PROGRAM LOAD OPTION WHICH WHEN SELECTED WILL CAUSE ALL 
PROGRAMS TO BE AUTOMATICALLY EXECUTED ON COMPLETION OF LOADING. 



LPA (LOOP PROGRAM ADDRESS) 



MAINLINE 



THE LOOP PROGRAM ADDRESS IS A FIXED ADDRESS IN THE USER'S PROGRAM 
STATUS TABLE (PST) WHICH POINTS TO THE LOOP PROGRAM ROUTINE IN THE 
USER'S PROGRAM. IT IS TO THIS ROUTINE THAT THE MONITOR WILL TRANSFER 
TO IF IT FINDS THE LOOP PROGRAM SWITCH ON AT THE COMPLETION OF THE 
USER'S PROGRAM. THE LOOP PROGRAM ROUTINE WILL THEN RE-INITIALIZE THE 
PROGRAM AND START THE SEQUENCE OF ROUTINES AGAIN. THE LPA ROUTINE 
EXITS VIA EP. 



THAT PORTION OF A PROGRAM WHICH DOES NOT DIRECTLY SERVICE AN 
INTERRUPT. 

MCH (MONITOR CHANNEL WORD) 

THE MCH IS A COMPUTER WORD LOCATED IN THE MONITOR WHICH INDICATES THE 
BUSY-NOT BUSY STATUS OF THE VARIOUS I/O CHANNELS. THE CHANNEL STATUS 
(0 THROUGH 8) IS INDICATED BY BITS THRU 8 OF THE MCH WORD BEING 
TURNED ON IF A PARTICULAR CHANNEL IS BUSY. FOR EXAMPLE IF MACHINE 
CHANNEL 2 IS BUSY, BIT 2 OF THE MCH WORD = 1. 

MID (MESSAGE IDENTIFICATION NUMBER) 

THE MID IS A COMPUTER WORD WHICH MUST BE INCLUDED IN THE I/O STRING 
PROVIDED TO THE MONITOR WHEN A CALL ON THE MONITOR ERROR OR LOG 
ROUTINE IS INITIATED. THE MID IDENTIFIES THE MESSAGE TYPE AS EITHER A 
STATUS (AXXX), COMMAND (CXXX), DATA (DXXX), OR ERROR (EXXX) MESSAGE 
BY THE ONE CHARACTER, ALPHABETIC PREFIX. THE NUMBER EMITTED IN 
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CONJUNCTION WITH THE PREFIX, DEFINES A PARTICULAR MESSAGE WITHIN THAT 
MESSAGE TYPE. THE MONITOR OUTPUTS THE MID AS PART OF THE STANDARD 
MESSAGE OUTPUT FORMAT. 

MLSCF (MAINLINE SEQUENCE CONTROL FIELD) 

THE MLSCF IS A FIELD CONSISTING OF ONE OR MORE COMPUTER WORDS 
CONTAINED IN THE MONITOR AND MONITOR CONTROLLED PROGRAMS FOR PROGRAM 
RE-ENTRY CONTROL. THE MLSCF IS A PART OF THE PST (PROGRAM STATUS 
TABLE). THE MLSCF IS USED FOR ROUTINE TRANSITION. 

MONITOR ENGLISH MESSAGE DECK 

A CARD DECK WHICH CAN BE PLACED AS THE LAST PROGRAM IN A SERIES OF 
MONITOR CONTROLLED PROGRAMS TO BE LOADED, AND WHICH WILL BE READ 
BY THE MONITOR AND USED TO OUTPUT LOG MESSAGES IN ENGLISH LANGUAGE. 

MONITOR HEADER 

A PROGRAM PLACED IN FRONT OF THE MONITOR DECK. THIS PROGRAM LOADS 
UNDER CONTROL OF THE BASIC DIAGNOSTIC LOADER AND PERFORMS A 
PRELIMINARY CHECK OF THE HARO CORE OF THE PROCESSOR CONTROLLER 
REQUIRED BY THE DIAGNOSTIC MONITOR. 

MPIDT (MONITOR PROGRAM IDENTIFICATION TABLE) 

THIS MONITOR TABLE CONSISTS OF 64 WORDS. THE RELATIVE POSITION OF 
EACH WORD IN THE TABLE CORRESPONDS TO ONE OF THE 64 POSSIBLE PROGRAM 
IDENTIFICATION NUMBERS (PID). IF A DIAGNOSTIC PROGRAM HAS BEEN LOADED 
INTO CORE STORAGE, THE CORRESPONDING MPIDT ENTRY CONTAINS THE ADDRESS 
OF THE PROGRAMS PST. THIS TABLE ALSO INDICATES THE EXECUTION STATUS 
OF A PROGRAM BY TURNING ON BIT (XEQ BIT) OF THE ENTRY ASSOCIATED 
WITH THAT PROGRAM. 

OVERLAP (MOOE) 

1. AN OPTIONAL MODE OF OPERATION AVAILABLE IN THE 1800 MONITOR WHICH 
PROVIDES THE CAPABILITY FOR LOADING TWO OR MORE MONITOR 
CONTROLLED FUNCTION TEST PROGRAMS INTO CORE STORAGE. 

2. CONCURRENT EXECUTION OF TWO OR MORE MONITOR CONTROLLED PROGRAMS. 



PID 



A UNIQUE TWO DIGIT NUMBER ASSIGNED TO A DIAGNOSTIC PROGRAM. THE PID 
IS THE FIRST ENTRY IN THE PST (PROGRAM STATUS TABLE) OF A MONITOR 
CONTROLLED PROGRAM. THIS IDENTIFIES THE PROGRAM TO THE MONITOR AND 
ALLOWS THE OPERATOR TO COMMUNICATE TO THE PROGRAM AND THE PROGRAM TO 
COMMUNICATE WITH THE OPERATOR VIA THE MONITOR. A PROGRAM WHOSE PID 
IS 3 WOULD BE REPRESENTED AS A COMPUTER WORD IN A PRINTOUT AS 0300. 



THE PID IS A SUBSECTION OF THE PROGRAM IDENTIFICATION NUMBER. 
BELOW) 



(SEE 



POLL 



A SCAN BY THE MONITOR OF THE MPIDT SEARCHING FOR A PROGRAM FLAGGED 
FOR XEQ (BIT 0=1) AND AN ENTRY IN THE PROGRAM MLSCF. 



PROGRAM EDIT (ROUTINE) 



A FUNCTION OF THE MONITOR USED TO PLACE THE EDIT INFORMATION 
CONTAINED IN THE USER PROGRAM EDIT CARDS INTO THEIR EDIT AREA. 
THE PROGRAM EDIT CARDS PROVIDE A DYNAMIC METHOD OF 
CUSTOMIZING THE OPERATING CONFIGURATION REQUIRED BY THE USER'S 
PROGRAM. USEO AS INPUT TO THIS ROUTINE, THE EDIT CARDS DEFINE SUCH 
FEATURES AS THE REQUIRED I/O DEVICES, INTERRUPT LEVEL ROUTINES, AND 
ESTABLISH CHANNEL AND AREA CODE ASSIGNMENTS. 
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A UNIQUE FIVE OIGIT NUMBER USED TO IDENTIFY EACH PROGRAM. THE 
NUMBER IS ACTUALLY A COMPOSITE OF 4 FIELDS. 

08XX-Y 

IS THE LOCATION AT WHICH THE PROGRAM WAS WRITTEN. 

8 IS FOR THE 1800 SYSTEM. 

XX IS THE PROGRAM PID. IF THE PID WERE 3. THE PROGRAM ID NUMBER 

WOULD BE 0803-Y 
Y IS THE PROGRAM VERSION NUMBER. THIS NUMBER IS UPDATED WITH EACH 
ENGINEERING CHANGE. 



PST (PROGRAM STATUS TABLE) 



THE PST IS A MULTI-FIELD MULTI-WORD TABLE WHICH ACTS AS AN INTERFACE 
BETWEEN THE DIAGNOSTIC MONITOR AND THE MONITOR CONTROLLED PROGRAM. 
THE PROGRAM STATUS TABLE IS A REQUIREMENT OF ALL MONITOR CONTROLLED 
PROGRAMS. ENTRIES CONTAINED IN THE PST INCLUDE THE PROGRAM 
IDENTIFICATION NUMBER (PID), ROUTINE IDENTIFICATION NUMBER (RID), 
ROUTINE ADDRESS (RAD), BIT SWITCH TABLE, INITIALIZATION ADDRESS 
(IPA), LOOP PROGRAM ADDRESS (LPA), END PROGRAM ADDRESS (EPA), 
MAINLINE SEQUENCE CONTROL FIELDS (MLSCF), TERMINATOR, WORK AREA, AND 
EDIT FIELD. BY THE USE OF THE PST, THE DIAGNOSTIC MONITOR PROGRAM 
MONITORS THE STATUS OF THE VARIOUS PROGRAMS OPERATING UNDER ITS 
CONTROL. 

RAD (ROUTINE ADDRESS) 

A ONE COMPUTER WORD ENTRY IN THE PROGRAM STATUS TABLE (PST) WHICH 
CONTAINS THE ACTUAL CORE LOCATION OF THE USER'S TEST ROUTINE 
CURRENTLY BEING PROCESSED. THE USER UPDATES THE RAD ENTRY IN EACH 
TEST ROUTINE. THE MONITOR INCLUDES THE RAD AS PART OF STANDARD OUTPUT 
MESSAGE FORMAT GENERATED BY A USER'S CALL ON THE MONITOR ERROR OR LOG 
ROUTINES. 

RID (ROUTINE IDENTIFICATION NUMBER) 

A SYMBOLIC NUMBER ASSIGNED TO IDENTIFY A TEST ROUTINE IN THE USER'S 
PROGRAM. THE RID IS CONTAINED, AS A ONE WORD ENTRY, IN THE PROGRAM 
STATUS TABLE (PST). THE USER UPDATES THE RIO IN EACH TEST ROUTINE. 
THIS NUMBER IS INCLUDED AS PART OF THE STANDARDIZED OUTPUT MESSAGE 
FORMAT GENERATED BY THE MONITOR WHEN THE USER CALLS ON THE ERROR OR 
LOG ROUTINES IN THE MONITOR. 



RELOCATE 



SWO 
SW1 
SW2 

SW3 



MOVING OR LOADING A PROGRAM IN CORE STORAGE, RELATIVE TO SOME FIXED 
CORE LOCATION OR RELOCATION FACTOR. THE 1800 DIAGNOSTIC RELOCATABLE 
LOADER PERFORMS THIS FUNCTION DURING PROGRAM LOAD PHASE. 



THE FUNCTION LEVEL OF THE PROGRAM (PID) INTO WHICH THE CONTENTS OF 
THE DATA ENTRY SWITCHES ARE TO BE PLACED. SWO NORMALLY IS CONTROL. 
SW1 IS NORMALLY PROGRAM OR ROUTINE SELECTION. SW2 IS NORMALLY DEVICE 
SELECTION, AND SW3 IS DEFINED BY EACH USER. SWO CORRESPONDS TO 
TABLE ETC. 
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A FUNCTION OF THE MONITOR USED TO SET UP THE OPERATING PARAMETERS FOR 
THE MONITOR. THESE PARAMETERS DEFINE THE OPERATOR COMMUNICATION 
DEVICES (EDIT CARD 0), DESIRED INTERRUPT LEVELS (EDIT CARD 1) AND 
ENTIRE SYSTEMS DEFINITIONS (EDIT CARD 2 TO X). 



TERMINATE SWITCH 



BIT 15 FUNCTION IS THE TERMINATE PROGRAM SWITCH. SETTING THIS 
SWITCH ON CAUSES THE USER PROGRAM TO CALL ON THE MONITOR END ROUTINE. 
THIS SWITCH IS REQUIRED OF ALL USER PROGRAMS WHICH DO NOT NORMALLY 
TERMINATE AFTER ONE PASS AND IS OPTIONAL FOR THOSE PROGRAMS WHICH DO 
TERMINATE AFTER ONE PASS. 



TERMINATOR 



A BINARY COMPUTER ^QRD CONTAINING ALL ONES, FFFFU6), WHICH IS USED 
TO SIGNAL THE TERMINATION OF A DATA STRING OR TABLE. 



TRANSFER VECTOR 



TRAP STOP 



XEQ 



5.3 



AN ADDRESS, NORMALLY CONTAINED IN A TABLE, WHICH SERVES AS THE 
LINKAGE BETWEEN PROGRAMS AND SUBROUTINES. 



A PROGRAM PLACES THE OPERATION OF THE COMPUTER INTO A ONE OR TWO 
INSTRUCTION LOOP WHEN A PROGRAM OR PROCESSING ERROR OCCURS. THE 
ERROR TRAPS WHICH CAN OCCUR DURING THE OPERATION OF THE PROGRAM 
ARE DEFINED IN THE PROGRAM HALT DESCRIPTION SECTION OF THE PROGRAM 
LISTING. ALL MONITOR ERROR TRAPS CONTAIN A WAIT INSTRUCTION. 



REFERS TO THE FUNCTION OF SELECTING AND EXECUTING A PARTICULAR 
DIAGNOSTIC PROGRAM UNDER THE CONTROL OF THE MONITOR. THE INSTRUCTIONS 
FOR CARRYING OUT THIS FUNCTION ARE GIVEN IN DETAIL IN TABLE 1 OF THIS 
DOCUMENT. 

PHYSICAL DESCRIPTION 

THIS SECTION WILL OISCUSS IN DETAIL EACH OF THE 32 MAJOR SECTIONS OF 
THE MONITOR LISTED BELOW. THIS DISCUSSION WILL HANDLE EACH OF THESE 
MAJOR AREAS BY ASCENDING CORE LOCATIONS AND THEIR RESPECTIVE 
LOCATIONS IN THE LISTING. THE TOPICS OF DISCUSSION ARE, 



NAME 

A. MONITOR HALTS 

B. MONITOR/LOADER INTERFACE 

C. TRANSFER VECTOR 

D. ENGLISH MESSAGE DECK 

E. INTERRUPT LEVEL 

F. AREA CODE / CHANNEL 

G. MONITOR PID 

H. COMMON INTERRUPT 

I. INTERRUPT ERROR 

J. MONITOR LOG CONTROL 

K. ERROR HALT 

L. MONITOR PROGRAM STATUS 

M. MONITOR INITIALIZATION 

N. MONITOR TERMINATION ADRS 

0. CONSOLE INTERRUPT 

P. INTERRUPT TRANSFER VECTOR 



INTERFACE 

ROUTINES AND 



FUNCTION 

TABLE 

TABLE 

TABLE 

ROUTINE 

TABLES (TOTAL OF 12) 

TABLE 

TABLE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

TABLE 

ROUTINE 

ROUTINE 

ROUTINE 

TABLE 
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T. MONITOR FUNCTION 

U. RETURN TO LOADER 

V. MONITOR END 

W. INTERNAL ERROR 

X. REQUEST DEVICE 
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ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

ROUTINE 

TABLE 

ROUTINE 

ROUTINE 



A. MONITOR HALTS DESCRIPTION 

THIS SECTION OF THE MONITOR LISTING PROVIDES A COMPLETE DESCRIPTION 
OF EACH MONITOR HALT. THE CORRECT HALT DESCRIPTION IN THE TABLE 
CAN BE LOCATED BY COMPARING THE CONTENTS OF THE B AND I REGISTERS 
TO THE COLUMNS OF 4 OIGITS APPEARING TO THE LEFT OF THE 
DESCRIPTION SECTION. 

B. MONITOR/LOADER INTERFACE 

THIS TABLE EQUATES COMMON LABLES USED BY THE MONITOR AND THE 
LOADERS TO THEIR FIXED VALUES. THIS TABLE ALSO CONTAINS TWO 
XFER VECTORS BY WHICH THE LOADERS TRANSFER CONTROL TO THE MONITOR. 

C. TRANSFER VECTOR TABLE 

THE TRANSFER VECTOR IS IN A FIXED LOCATION IN CORE STORAGE AND 
CONTAINS THE ADDRESSES OF EACH OF THE VARIOUS COMMON ROUTINES 
REQUIRED BY THE USER PROGRAMS. THUS , BY MAINTAINING THE TRANSFER 
VECTOR IN A FIXED LOCATION AND REFERENCING THE ROUTINES IN THE 
TRANSFER VECTOR, REASSEMBLIES OF THE MONITOR AND MOVEMENT OF ROUTINE 
ENTRY POINTS MAY BE MADE WITHOUT AFFECTING THE COMMUNICATION OF 
EXTERNAL PROGRAMS TO THESE ROUTINES. 

D. ENGLISH MESSAGE DECK INTERFACE 

THIS SECTION CONTAINS A TRANSFER VECTOR VIA WHICH THE MONITOR 
ENGLISH MESSAGE DECK TRANSFERS CONTROL TO THE ENGLISH DECK LOADER 
SECTION OF THE MONITOR. THIS XFER VECTOR IS SET TO ZERO BY THE 
MONITOR BEGIN ROUTINE IF ANY PORTION OF THE ENGLISH ROUTINES ARE 
OVERLAID BY TEST PROGRAMS. IF THIS OCCURS THE ENGLISH MESSAGE 
DECK WILL XFER DIRECTLY TO THIS INTERFACE SECTION. THE INTERFACE 
SECTION WILL THEN PRINT AN ERROR MESSAGE AND HALT. 

E. INTERRUPT LEVEL ROUTINES (TOTAL OF 12) 

THERE ARE 12 UNIQUE INTERRUPT LEVEL ROUTINES. EACH ROUTINE 
CORRESPONDS TO THE ORDER IN WHICH THE INTERRUPT LEVELS ARE SPECIFIED 
ON EDIT CARD 1. (I.E. IF THE FIRST EDIT ENTRY SPECIFIED INTERRUPT 
LEVEL 5, THEN THE FIRST ROUTINE IS THE UNIQUE INTERRUPT LEVEL ROUTINE 
FOR LEVEL 5.) ENTRY INTO THE ROUTINE IS A RESULT OF THE SPECIFIED 
INTERRUPT LEVEL COMING ON. THE INTERRUPT LEVEL TRANSFER VECTOR AND 
THE UNMASK REGISTER ARE DEVELOPED IN THE SAME MANNER THAT THE 
INTLRRUPT LEVEL ROUTINES AND THE INTERRUPT LEVEL TABLES ARE ASSIGNED. 
(REFER MONITOR SYSTEM EDIT.) THESE UNIQUE INTERRUPT LEVEL ROUTINES 
ARE USED TO BOTH ENTER INTO INTERRUPT AND EXIT OUT OF INTERRUPT. IN 
BOTH CASES THE SAME INSTRUCTION IS USED. WHEN AN INTERRUPT COMES ON, 
THE INTERRUPT TRANSFER VECTOR POINTS TO THE SECOND HALF OF THE BOSC 
INSTRUCTION. IMMEDIATELY AFTER THE HARDWARE HAS STORED THE I-REG. , 



THE UNIQUE INTERRUPT LEVEL ROUTINE BRANCHES TO THE COMMON INTERRUPT 
ROUTINE TAKING WITH IT THE ADDRESS OF THE INTERRUPT LEVEL TABLE 
CORRESPONDING TO THE SAME LEVEL. THE COMMON INTERRUPT ROUTINE WILL 
RETURN CONTROL TO THE UNIQUE LEVEL ROUTINE AFTER SERVICING THE 
INTERRUPT. THE UNIQUE ROUTINE RESTORES STATUS, INDEX REGISTER 3 AND 
BRANCHES OUT OF INTERRUPT. 

EACH ROUTINE IS FOLLOWED BY AN INTERRUPT LEVEL TABLE CONSISTING OF 19 
WORDS. THE FIRST 16 WORDS IN THE TABLE CORRESPOND TO THE ILSW FOR 
THE SPECIFIED LEVEL. EACH WORD CORRESPONDS TO A RESPECTIVE BIT IN 
THE ILSW (BIT WORD). THE REMAINING WORDS ARE USED FOR TEMPORARY 
STORAGE. 

EACH BIT WORD MAY CONTAIN 1 OF 3 POSSIBILITIES. BIT WORDS WHICH ARE 
DEVICE POPULATED IN THE ILSW WILL BE ASSIGNED THE AREA CODE AND 
MODIFIER OF THE DEVICE POPULATING THEM ( IF SPECIFIED ON MONITOR 
SYSTEM EDIT CARD 2, REFER TO MONITOR EDIT CARD 2 FORMAT ). IN THIS 
CASE THE AREA CODE IS SHIFTED 3 POSITIONS TO THE LEFT, OCCUPYING BITS 
3 TO 7, AND BIT = 1 INDICATING THAT THE BIT WORD CONTAINS AN AREA 
CODE AND MODIFIER. 

A BIT WORD MAY CONTAIN A MEMORY ADDRESS. THIS ADDRESS POINTS TO A 
USER INTERRUPT ROUTINE. ( REFER MONITOR REQUEST DEVICE ). AN ADDRESS 
IS DIFFERENTIATED FROM AN AREA CODE BY BIT = 0, OR A BIT WORD MAY 
BE BLANK BIT 0-15 = 0. THIS INDICATES EITHER THAT THE BIT IS 
UNPOPULATED BY ANY DEVICE, OR NO DEVICE WAS SPECIFIED TO BE ON THIS 
INTERRUPT LEVEL AND ILSW BIT IN MONITOR SYSTEM EDITS. 

F. AREA CODE/CHANNEL CROSS REFERENCE TABLE 

THIS TABLE CONSISTS OF 32 WORDS. THE RELATIVE POSITION OF EACH WORD 
IN THE TABLE CORRESPONDS TO ONE OF THE 32 POSSIBLE DEVICE AREA CODES. 
BITS THRU 8 OF EACH WORD ARE USED TO IDENTIFY THE CHANNEL(S) THE 
DEVICE IS WIRED TO (CHAN 2=BIT 2 ETC.). THESE BITS ARE EDITED IN 
BY THE MONITOR SYSTEM EDIT ROUTINE. IF THE DEVICE IS NOT SPECIFIED 
IN THE SYSTEM EDIT CARDS OR IF A NON-CHANNEL DEVICE THE WORD WILL 
BE BLANK. 

G. MONITOR PID TABLE 

THIS TABLE CONSISTS OF 64 WORDS. THE RELATIVE POSITION OF EACH WORD 
IN THE TABLE CORRESPONDS TO ONE OF THE 64 POSSIBLE PROGRAM PIDS. 
THESE WORDS CONTAIN THE ADDRESS OF EACH PROGRAM'S PST WHICH HAS BEEN 
LOADED INTO CORE, (I.E., IF THE PROGRAM WHOSE PID IS 05 WAS LOADED 
INTO CORE LOCATION 12AB, THEN THE FIFTH WORD IN THE TABLE WOULD 
CONTAIN 12AB). THE PID TABLE PROVIDES A CONVENIENT TABLE LOOKUP 
METHOD FOR LOCATING A PROGRAM IN CORE. WHENEVER THE OPERATOR 
COMMUNICATES WITH THE PROGRAM VIA THE PROGRAM/SENSE SWITCHES, THIS 
TABLE PROVIDES A MEANS TO VERIFY THE PID AND SET INTO THE PROPER 
SWITCH FUNCTION LEVEL THE CONTENTS OF THE DATA ENTRY SWITCHES. (REFER 
MONITOR CONSOLE INTERRUPT ROUTINE). WHEN A PID IS SELECTED FOR XEQ, 
BIT IS SET ON IN THE RESPECTIVE POSITION OF MPIDT AND WHEN SELECTED 
FOR DXEQ, BIT IS SET OFF. (REFER MONITOR CONTROL SECTION). THE 
ADDRESS OF THE PST IS PLACED IN THIS TABLE BY THE MONITOR BEGIN 
ROUTINE (REFER MONITOR BEGIN ROUTINE). 

H. COMMON INTERRUPT ROUTINE 

THIS ROUTINE IS SHARED IN COMMON BY THE 12 UNIQUE INTERRUPT LEVEL 
ROUTINES. IT DETERMINES WHICH OF THE UNIQUE LEVEL ROUTINES HAS 
CALLED ON IT AND THE LOCATION OF ITS INTERRUPT LEVEL TABLE. IT THEN 
SAVES THE ACCUMULATOR Q-REGISTER, AND THE RETURN ADDRESS TO THE 
UNIQUE ROUTINE IN THE INTERRUPT LEVEL TABLE. THE COMMON 
ROUTINE THEN SENSES THE ILSW. IF THE ILSW IS BLANK, THE COMMON 
ROUTINE TRANSFERS TO THE INTERRUPT ERROR ROUTINE. IF THE ILSW 
IS NOT BLANK, THE COMMON ROUTINE DETERMINES WHICH BIT IS ON AND 
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FETCHES THE WORD IN THE ILSW PORTION OF THE INTERRUPT LEVEL TABLES 
CORRESPONDING TO IT. THIS WORD IS THEN CHECKED FOR VALIDITY. IT MAY 
CONTAIN ONE OF 3 POSSIBILITIES. 

1. BLANK (UNPOPULATED OR NOT SPECIFIED IN MONITOR SYSTEM EDIT). 

2. AN AREA CODE AND MODIFIER. (BIT 0=1) 

3. AN ADDRESS (BIT = 0) OF A USER'S INTERRUPT ROUTINE (REFER 
REQUEST DEVICE.) 

IF THE WORD IS BLANK OR CONTAINS AN AREA CODE AND MODIFIER 
(DISTINGUISHED BY BIT 0=1) THE COMMON ROUTINE TRANSFERS TO THE 
INTERRUPT ERROR ROUTINE. IF THE WORD CONTAINS AN ADDRESS OF A USER'S 
DEVICE INTERRUPT ROUTINE (BIT 0=0, REFER REQUEST DEVICE), THE XFER 
IS TO THE ADDRESS SPECIFIED. THE USER WILL THEN RESET THE DEVICE, 
SET ENTRYS IN HIS MLSCF, AND RETURN CONTROL TO THE COMMON INTERRUPT 
ROUTINE. THE COMMON ROUTINE THEN RETURNS CONTROL TO THE UNIQUE 
INTERRUPT ROUTINE WHICH MADE THE CALL. 

I. INTERRUPT ERROR ROUTINE 

THIS ROUTINE IS ENTERED FROM THE COMMON INTERRUPT ROUTINE IF A 
BLANK ILSW IS SENSED OR IF THE INTERRUPT LEVEL TABLE WORD 
CORRESPONDING TO THE ILSW BIT IS BLANK OR CONTAINS AN AREA CODE 
AND MODIFIER. IF EITHER THE ILSW OR THE INT TABLE WORD IS BLANK 
THIS ROUTINE WILL HALT IN AN ERROR TRAP. IF THE INT TABLE WORD 
CONTAINS AN AREA CODE AND MODIFIER THIS ROUTINE WILL DEVELOPE AN 
E009 PRINTOUT, SET A MONITOR MLSCF ENTRY, RESET THE DEVICE, ANO 
RETURN TO THE COMMON INTERRUPT ROUTINE. A SUBSECTION OF THIS ROUTINE 
IS ENTERED VIA A MONITOR MLSCF ENTRY AND CALLS ON THE LOG CONTROL 
ROUTINE TO PRINT THE E009 MESSAGE. 

J. MONITOR LOG CONTROL ROUTINE 

THIS ROUTINE IS ENTERED VIA A 
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FROM SUBSECTIONS OF THE 
INTERRUPT ROUTINE, AND T 
TIME THE BSI INSTRUCTION 
THE MLSCF ENTRY POINT IN 
CONTAINS THE ADDRESS OF 
CALLS ON THE LOG ROUTINE 
IS RECEIVED FROM THE LOG 
RESTORE THE MLSCF ENTRY 
THIS WILL CAUSE ANOTHER 
THE POLL. 



INTERRUPT ERROR ROUTINE, THE CONSOLE 

HE MONITOR FUNCTION 01 ROUTINE. AT THE 
IS EXECUTED THE I REGISTER IS POINTING TO 
THE CALLING ROUTINE AND INDEX REGISTER 3 

THE LOG STRING. THE LOG CONTROL ROUTINE 
TO PRINT THE MESSAGE. IF A BUSY RETURN 
ROUTINE THE LOG CONTROL ROUTINE WILL 

TO THE CALLING ROUTINE AND XFER TO POLL. 

CALL ON THE LOG CONTROL ROUTINE AFTER 



THIS SECTION OF MONITOR ACTUALLY CONSISTS OF 4 TABLES. THESE TABLES 

ARE- 
MONITOR PST 
MAT TABLE 

MONITOR RESTART WORDS 
MONITOR EDIT FIELDS 

1. MONITOR PST 

THE MONITOR PST CONSISTS OF ALL STANDARD FIELDS. (REFER TO 
DEFINITIONS). THE MONITOR USES ONLY SWO (CONTROL), SW1 
(PROGRAM XEQ/DXEQ), AND SW3 (BYPASS PRINTOUT) IN THE SWITCH 
FIELD. THE MLSCF IN THE MONITOR CONSISTS OF 6 ENTRIES. THESE 
ENTRIES ARE- 
ENTRY 1 

THIS ENTRY IS PLACED BY THE INTERRUPT SERVICE SECTION OF 
THE LOG ROUTINE AFTER EACH LINE OF PRINT HAS BEEN COMPLETED. 
THIS ENTRY CONTAINS THE ADDRESS IN THE LOG ROUTINE WHERE THE 
CALL WAS MADE TO PRINT THE LINE. THIS ENTRY WILL CAUSE A 
RETURN TO THE LOG ROUTINE TO SET-UP THE NEXT LINE OF PRINT. 



ENTRY 2 



THIS ENTRY IS PLACED BY THE MONITOR FUNCTION 01 ROUTINE. 
THE ENTRY CONTAINS THE ADDRESS OF THE SUBROUTINE IN THE 
MONITOR FUNCTION 01 ROUTINE WHICH CAUSES AOOlt EOOO, AND 
E001 PRINTOUTS. 



ENTRY 3 



THIS ENTRY IS PLACED BY THE MONITOR CONSOLE INTERRUPT 
ROUTINE AFTER SERVICING THE INTERRUPT, CHECKING THE SWITCHES 
FOR VALIDITY, AND DEVELOPING THE I/O STRING. THIS MLSCF ENTRY 
POINTS TO AN ENTRY IN THE SUBSECTION OF THE CONSOLE INTERRUPT 
ROUTINE WHICH CAUSES A003 OR E003 PRINTOUTS. 



ENTRY 4 



THIS ENTRY IS PLACED BY THE MONITOR FUNCTION 01 ROUTINE 
WHEN XEQ/DXEQ ALL PROGRAMS IS SELECTED. THIS ENTRY POINTS 
TO THE SUBSECTION OF THE MONITOR FUNCTION 01 ROUTINE WHICH 
SEQUENTIALLY XEQ/DXEQ ALL PROGRAMS. 



K. ERROR HALT ROUTINE 



ENTRY 5 



THIS ROUTINE IS ENTERED VIA A- 

BSI L HALT 

IT PERFORMS AN ALL LEVEL MASK AND WAITS WITH B-REGISTER EQUAL TO 
3008. ( REFER MONITOR HALTS DESCRIPTION SECTION IN THE MONITOR 
LISTING). THIS ROUTINE IS ENTERED FROM THE ERROR LOG ROUTINE IF THE 
HALT ON ERROR OPTION (SWO BIT 14) IS SELECTED. DEPRESSION OF THE 
CONSOLE START KEY WILL CAUSE THE ROUTINE TO PERFORM A SELECTIVE 
UNMASK (THOSE LEVELS SPECIFIED ON MONITOR EDIT CARD 1) AND RETURN 
CONTROL VIA EP. 



CONTAINS THE ADDRESS OF THE MONITOR TERMINATION ADDRESS 
ROUTINE. THIS ENTRY IS PLACED IN THE MLSCF BY THE LOG ROUTINE 
AFTER IT DETERMINES THAT THE MESSAGE HAS BEEN COMPLETED IF 
THERE WAS A TERMINATION AODRESS IN THE USER'S CALL ON THE LOG 
ROUTINE (REFER MONITOR TERMINATION ROUTINE, MONITOR LOG 
ROUTINE). 



ENTRY 6 



THIS ENTRY IS PLACED BY THE INTERRUPT ERROR ROUTINE 
WHENEVER AN UNEXPECTED INTERRUPT IS DETECTED. THE CONTENTS 
POINT TO AN ENTRY POINT IN THE SUBSECTION OF THE INTERRUPT 
ERROR ROUTINE WHICH CAUSES E009 PRINTOUTS. 
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2. MAT TABLE 

THIS TABLE CONSISTS OF 7 ENTRIES. 

USE IS PRIMARILY ONE OF LEAVING FOOTPRINTS IN THE PROGRAM. 

THE CONTENTS OF EACH OF THESE WORDS ARE, 

MATOO CONTAINS THE ADDRESS OF THE PST OF THE LAST PROGRAM 
POLLED WHICH WAS FLAGGED FOR EXECUTION. 

MAT01 CONTAINS THE ADDRESS OF THE LAST LOCATION EXITED TO 
BY THE MONITOR FROM ITS POLL ROUTINE. (REFER MONITOR 
CONTROL SECTION). 

MAT02 CONTAINS THE PID OF THE PROGRAM USING THE LOG 

ROUTINE. WHEN THE MESSAGE HAS BEEN COMPLETED THIS 
WORD IS RESET. 

MAT03 CONTAINS THE ADDRESS OF THE PST OF THE PROGRAM USING 
THE LOG ROUTINE. 

MAT04 CONTAINS THE USER'S TERMINATION ADDRESS ON A LOG CALL 
IF THE TERM ADDRESS IS SPECIFIED. 

MAT05 USED AS PROGRAM SWITCH, SET TO NON-ZERO WHEN AN 

OUTPUT MESSAGE AS A RESULT OF CONSOLE INTERRUPT IS 
PENDING. RESET TO ZERO WHEN THE MESSAGE IS COMPLETED. 
NO CONSOLE INTERRUPTS WILL BE ACCEPTED UNTIL THIS 
WORD IS RESET. 

MAT06 CONTAINS THE PID OF THE PROGRAM WHICH IS CURRENTLY 

BEING EDITED BY THE EDIT ROUTINE'. (USED DURING LOAD) 

3. MONITOR RESTART WORDS 

THESE FOUR WORDS ARE LOADED INTO LOCATIONS 0000(16) TO 
0003(16) RESPECTIVELY. THESE WORDS PROVIDE THE LINKAGE TO THE 
RESTART SECTION OF THE CONTROL ROUTINE WHEN A RESTART PROCEDURE 
IS EXECUTED. 

4. MONITOR EDIT FIELDS 

THE FIRST WORD CONTAINS THE DOEF FOR CONSOLE INTRRUPT. THE 
SECOND CONTAINS THE DDEF FOR THE MONITOR OUTPUT DEVICE. 

M. MONITOR INITIALIZATION ROUTINE 

THIS ROUTINE IS ENTERED VIA A 
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AND IS USED BY THE MONITOR ONLY. THIS ROUTINE XFERS TO THE MONITOR 
FUNCTION 01 RTN TO DXEO ANY PROGRAMS THAT ARE FLAGGED FOR EXECUTION, 
RESETS THE MONITOR PST AND MAT TABLES, LOADS THE RESTART WORDS, SETS 
UP THE INTERRUPT TRANSFER VECTORS, AND CALLS ON THE LOG ROUTINE TO 
PRINT THE MESSAGE SPECIFIED BY THE PRINT PARAMETER IN THE CALLING 
SEQUENCE. IF THE PRINT PARAMETER CONTAINS AN ADDRESS (+) THE LOG 
STRING AT THAT ADDRESS IS PRINTED. IF THE PARAMETER CONTAINS A MID 
(-) A MESSAGE HAVING THAT MID IS PRINTED. IF THE PARAMETER IS ZERO 
NO MESSAGE IS PRINTED. AFTER PRINTING IS COMPLETE THE ROUTINE XFERS 
TO THE CALLING ROUTINE VIA EP. 

N. MONITOR TERMINATION ADORESS ROUTINE 

THIS ROUTINE IS ENTERED VIA THE MONITOR'S MLSCF (REFER MONITOR PST). 
IT CHECKS IF A TERMINATION ADDRESS WAS SPECIFIED IN THE LOG CALL, AND 
IF SO, TRANSFERS CONTROL TO THE TERMINATION ADDRESS SPECIFIED. IF 
NO TERMINATION ADDRESS IS SPECIFIED IT RETURNS TO THE CONTROL ROUTINE 
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0. CONSOLE INTERRUPT ROUTINE 

THIS ROUTINE IS ENTERED VIA A CONSOLE INTERRUPT INITIATED BY THE 
OPERATOR. THE PROGRAM/SENSE SWITCHES AND DATA ENTRY SWITCHES ARE READ 
INTO CORE STORAGE. THE PID SPECIFIED IS CHECKED FOR CORRECTNESS AND 
THE PROGRAM IS LOCATED IN CORE USING THE MPIDT AS A REFERENCE. IF THE 
PID IS CORRECT THE CONTENTS OF THE DATA ENTRY SWITCHES ARE PLACED 
INTO THE PROGRAMS PST AT THE FUNCTION LEVEL SPECIFIED IN SWITCHES 
AND 1 OF THE PROGRAM/SENSE SWITCHES, AND AN A003 MESSAGE IS 
GENERATED. IF THE PID IS NOT CORRECT AN E003 MESSAGE IS GENERATED. 
A MLSCF (ENTRY 3) IS PLACED AND THE ROUTINE EXITS VIA IEP. 

P. INTERRUPT TRANSFER VECTOR TABLE 

THIS TABLE CONTAINS THE INTERRUPT TRANSFER VECTOR ADDRESSES. THE 
ADDRESSES ARE PLACED IN THE TABLE BY THE MONITOR SYSTEM EDIT ROUTINE. 
THE MONITOR INITIALIZATION ROUTINE STORES THIS TABLE IN CORE 
LOCATIONS /0008 THRU /O022. 

Q. BEGIN ROUTINE 

THIS ROUTINE IS THE FIRST INTERFACE BETWEEN THE MONITOR CONTROLLED 
PROGRAMS AND THE MONITOR. THIS INTERFACE TAKES PLACE DURING THE LOAD 
PHASE, IN THE FOLLOWING SEQUENCE. 

1. THE LOADER DETECTS A BINARY END CARD AND TRANSFERS TO THE 
LOCATION SPECIFIED IN THE MONITOR CONTROLLED PROGRAM. 

2. AT THIS LOCATION IN THE PROGRAM IS A CALL ON THE MONITOR BEGIN 
ROUTINE 
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ADRS OF PROGRAM PST 



4. 



7. 



THE PROGRAM BRANCHES INDIRECT VIA A TRANSFER VECTOR, STORING THE 

LOCATION OF THE DC. 

THE MONITOR BEGIN ROUTINE FETCHES THE PROGRAMS PID, AND THE 

ADORESS OF ITS PST. 

USING THIS PID THE ADDRESS OF THE PST IS PLACED IN THE MPIDT. 

THE BEGIN ROUTINE CHECKS IF THE PROGRAM JUST LOADED HAS 

OVERLAID ANY PORTION OF THE ENGLISH PRINT ROUTINES AND, IF SO, 

SETS THE XFER VECTOR (ENGLD) IN THE ENGLISH DECK LOADER 

INTERFACE TO ZERO. THIS WILL PREVENT ANY XFERS TO THE OVERLAID 

SECTIONS OF THE MONITOR. 

THE BEGIN ROUTINE THEN RETURNS CONTROL TO THE LOADER TO READ IN 

THE EDIT CARDS. 



R. PROGRAM EDIT ROUTINE 



THIS ROUTINE IS ENTEREO FROM THE LOADER WHENEVER IT HAS SUCCESSFULLY 
READ AN EDIT CARD. HOWEVER IF THE PROGRAM BEING EDITED IS THE 
MONITOR, THIS ROUTINE TRANSFERS CONTROL TO THE MONITOR SYSTEM EDIT 
ROUTINE. IF THE PROGRAM BEING EDITED IS NOT THE MONITOR, BUT A 
MONITOR CONTROLLED PROGRAM, THIS ROUTINE WILL- 

1. CHECK THE PID ON THE EDIT CARD TO INSURE IT COMPARES WITH 
THE PID OF THE OBJECT PROGRAM JUST LOADED. 

2. CHECK THAT THE EDIT CARD SEQUENCE NUMBER IS CORRECT OR CHECK IF 
THE EDIT CARD IS AN END OF EDIT. 

3. IF IT IS NOT AN END OF EDIT CARD THE ROUTINE WILL PLACE THE 
NUMBER OF VARIABLE EDIT ENTRIES SPECIFIED INTO CONTIGUOUS CORE 
LOCATIONS IN THE PROGRAM EDIT AREA. SUBSEQUENT EDIT CARDS WILL 
HAVE THEIR ENTRIES PLACED IN THE NEXT AVAILABLE LOCATION IN THE 
EDIT AREA. 

4. IF THE EDIT CARD IS AN END OF EDIT, A D001 MESSAGE IS DEVELOPED 
AND THE ROUTINE CALLS ON THE INITIALIZATION ROUTINE TO INITIALIZE 
THE MONITOR AND PRINT THE D001 MESSAGE. FOLLOWING THE 
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COMPLETION OF THE MESSAGE THE EDIT ROUTINE DETERMINES THE MODE OF 
OPERATION SELECTED BY THE OPERATOR (BOOTSTRAP OR OVERLAP). IF THE 
MODE IS BOOTSTRAP THE ROUTINE TRANSFERS CONTROL TO THE MONITOR 
CONTROL SECTION AND THE LOAO PROCESS IS TEMPORARILY TERMINATED 
FOR XEQ OF A PROGRAM. IF THE MODE IS OVERLAP THE ROUTINE 
TRANSFERS CONTROL TO THE LOADER. IF THE LAST CARD INDICATOR IS 
ON, THE LOADER TRANSFERS CONTROL TO THE MONITOR CONTROL SECTION. 

MONITOR CONTROL SECTION 

THE CONTROL SECTION ACTUALLY CONSISTS OF THREE SUBROUTINES. THESE 
SUBROUTINES ARE- 

1. MONITOR RESTART SUBROUTINE 

THIS ROUTINE IS ENTERED WHEN THE OPERATOR PERFORMS A RESTART 
PROCEDURE OR WHEN A CE INTERRUPT TO MAINLINE OCCURS. IF ENTRY 
IS VIA A CE INTERRUPT THE ROUTINE WILL HALT IN AN ERROR TRAP. 
IF ENTRY IS VIA A RESTART THIS ROUTINE WILL XFER TO THE 
INITIALIZATION ROUTINE TO INITIALIZE THE MONITOR AND PRINT THE 
C002 MESSAGE. THE ROUTINE WILL THEN HALT AT WAIT 1. 

2. MONITOR CONTROL SUBROUTINE 

THIS ROUTINE XFERS TO THE RETURN TO LOADER ROUTINE IF SWO BIT 9 
IS ON, HALTS AT WAIT 3 IF SWO BIT 15 IS ON, HALTS AT WAIT 9 IF 
A LOG DEVICE INTERRUPT FAILS TO OCCUR, XFERS TO WAIT 1 IF NO 
PROGRAMS ARE SELECTED FOR EXECUTION. IF NONE OF THESE CONDITIONS 
EXIST THIS ROUTINE XFERS TO THE POLLING SUBROUTINE. 

3. MONITOR POLLING SUBROUTINE 

THIS ROUTINE SCANS THE MPIDT SEARCHING FOR PROGRAMS FLAGGED FOR 
XEO (BIT = 1). UPON LOCATING A PROGRAM FLAGGED FOR XEO THE 
ROUTINE SETS THE ADDRESS OF THE PROGRAMS PST IN MATOO AND THEN 
SCANS THE PROGRAMS MLSCF SEARCHING FOR AN ENTRY. THE SEARCH WILL 
CONTINUE UNTIL AN ADDRESS IS LOCATED IN THE MLSCF OR A TERMINATOR 
FFFFU6) IS FOUND (END OF MLSCF). IF AN ADDRESS IS LOCATED THE 
ROUTINE SETS IT IN MAT01 AND TRANSFERS CONTROL TO THE ADDRESS 
SPECIFIED. AFTER THE USER PROGRAM HAS COMPLETED ITS TASK IT 
RETURNS CONTROL TO THE MONITOR POLLING ROUTINE VIA THE TRANSFER 
VECTOR BY A 

BSC I START 

THE POLLING ROUTINE WILL THEN PICK UP THE POLL AT THE NEXT ENTRY 
IN THE MPIDT. UPON COMPLETION OF EACH PASS THROUGH THE MPIDT, 
CONTROL IS TRANSFERRED TO MONITOR CONTROL SUBROUTINE. 

MONITOR FUNCTION 1 ROUTINE 

THIS ROUTINE IS USED TO FLAG THE XEO OR DXEO OF A PROGRAM. IF A 
PROGRAM IS TO BE XEQED THIS ROUTINE SETS BIT OF THE APPROPRIATE 
ENTRY IN THE MPIDT ON. IF THE PROGRAM IS TO BE DXEQED BIT IS SET 
OFF (REFER MPIDT, MONITOR CONTROL SECTION). THIS ROUTINE IS ENTERED 
VIA A 



BSI 



MF01 



WHERE THE ACCUMULATOR CONTAINS THE PID (BITS 8 TO 15) OF THE PROGRAM 
TO BE XEOED OR DXEOED. IF THE PROGRAM IS TO BE XEQED THEN BIT 7 IS 
ALSO ON. IF THE PROGRAM IS TO BE DXEOED BIT 7 IS OFF. THIS ROUTINE 
ENTERED AS A RESULT OF EITHER AN OPERATOR INTERVENTION (SETTING AN 
ENTRY INTO MONITOR SW1), OR PERFORMING A RESTART (REFER PST AND 
MONITOR CONTROL SECTION), OR VIA A PROGRAM OPTION. IF A 
PROGRAM IS TO BE XEOED THIS ROUTINE TRANSFERS CONTROL TO THE USER'S 



IS 
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INITIALIZATION ROUTINE VIA THE IPA ADDRESS IN THE USER'S PST. THE 
USER'S INITIALIZATION ROUTINE RETURNS CONTROL TO THE FUNCTION 1 
ROUTINE VIA EP. THE FUNCTION 1 ROUTINE THEN RETURNS CONTROL VIA EP. 
IF A PROGRAM IS TO BE DXEQEO THIS ROUTINE TRANSFERS CONTROL TO THE 
USER'S END ROUTINE VIA THE EPA ADDRESS IN THE USER'S PST. THE USER'S 
END ROUTINE MUST DO WHATEVER IS NECESSARY TO INSURE PROPER 
TERMINATION OF THE PROGRAM. ONE OF WHICH IS TO CALL ON THE MONITOR 
RELEASE DEVICE ROUTINE AND RELEASE ALL DDEF'S EDITED. AT THE 
COMPLETION OF THE USER END ROUTINE, CONTROL IS RETURNED VIA EP. THE 
FUNCTION 1 ROUTINE THEN RETURNS CONTROL VIA EP. 

IF THE OPERATION IS XEQ/DXEQ THE MONITOR AN MLSCF ENTRY IS SET 
POINTING TO THE XEO/DXEQ ALL PROGRAMS SUBROUTINE IN THIS SECTION 
AND CONTROL IS RETURNED VIA EP. THE XEQ/DXEQ SUBROUTINE WILL THEN 
BE POLLED AND WILL IN TURN EXECUTE A BSI TO MF01 TO XEQ/DXEQ EACH 
PROGRAM IN CORE. AFTER EACH PROG IS XEQ/DXEQ ANOTHER MLSCF ENTRY IS 
SET AND CONTROL IS RETURNED TO THE POLLING SUBROUTINE. THIS 
PROCEDURE IS CONTINUED UNTIL ALL PROGRAMS IN CORE HAVE BEEN XEQ/DXEQ. 



U. RETURN TO LOADER ROUTINE 



THIS ROUTINE IS ENTERED WHEN SWO BIT 9 IS SELECTED. THIS ROUTINE 
CALLS ON THE INITIALIZATION ROUTINE TO INITIALIZE THE MONITOR AND 
PRINT THE C003 MESSAGE THEN HALTS TO WAIT FOR PROGRAM LOAD OPTIONS. 
AFTER OPTIONS ARE ENTERED THE ROUTINE SAVES THESE OPTIONS, CLEARS THE 
MPIDT AND RETURNS TO THE LOADER TO LOAD MORE PROGRAMS. 



V. END ROUTINE 



THIS ROUTINE IS SHARED IN COMMON BY ALL OF THE MONITOR CONTROLLED 
PROGRAMS. AFTER EACH PROGRAM HAS COMPLETED A PASS THROUGH ITS TEST 
ROUTINES CONTROL IS TRANSFERRED TO THE END ROUTINE. THIS ROUTINE 
EXAMINES THE STATUS OF THE MONITOR LOOP SW (SWO BIT 11). IF THE LOOP 
SW IS ON THIS ROUTINE TRANSFERS CONTROL VIA THE USER PROGRAMS PST TO 
THE LOOP PROGRAM ROUTINE (LPA). THE USER LOOP PROGRAM ROUTINE 
RETURNS CONTROL TO THE END ROUTINE VIA EP, WHICH IN TURN TRANSFERS 
CONTROL TO THE MONITOR CONTROL SECTION. IF THE LOOP PROGRAM SWITCH IS 
OFF, ITS PID IS SET IN THE ACCUMULATOR AND CONTROL IS TRANSFERRED TO 
THE MONITOR FUNCTION 1 ROUTINE (REFER MONITOR FUNCTION 1), WHICH 
DXEQ'S THE PROGRAM. COMPLETION OF END ROUTINE RETURNS CONTROL TO THE 
MONITOR CONTROL SECTION. 



W. INTERNAL ERROR ROUTINE 



THIS ROUTINE IS ENTERED AS A RESULT OF AN INTERNAL INTERRUPT ERROR. 
MANY MONITOR CONTROLLED PROGRAMS CAUSE INTERNAL ERRORS. THE INTERNAL 
ERROR ROUTINE MUST THEREFORE DETERMINE IF AN ERROR WAS PROGRAM 
GENERATED. WHENEVER A PROGRAM PREPARES TO GENERATE AN ERROR IT 
PLACES ITS PID IN THE MONITOR TRANSFER VECTOR (CRCK). WHEN THE ERROR 
OCCURS THE INTERNAL ERROR ROUTINE COMPARES THE PID IN CRCK AGAINST 
THE PID OF THE PROGRAM IN EXECUTION. IF THE PID'S COMPARE CRCK IS SET 
TO ZERO AND THE INTERNAL ERROR ROUTINE EXITS VIA IEP. IF THE PID'S DO 
NOT COMPARE THE ROUTINE WAITS AS SPECIFIED BELOW. 

IF A WAIT OCCURS, THE INTERNAL ERROR ROUTINE WILL WAIT WITH THE 
INTERNAL INTERRUPT ILSW IN THE ACC. AND I-CTR IN THE Q REGISTER (SEE 
FIGURE 6). 

THERE ARE FIVE POSSIBLE CAUSES FOR ENTRY. THESE ARE - 

BIT OP COOE VIOLATION 

BIT 1 PARITY ERROR 

BIT 2 STORAGE PROTECT VIOLATION 

BIT 3 CHANNEL ADDRESS REGISTER CHECK 

BIT 4 AUX CORE ERROR 
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WHEN A WAIT OCCURS THE ERROR WAS NOT PROGRAM GENERATED BUT MACHINE 
MALFUNCTION. THE OPERATOR MAY ELECT TO PROCEED BY DEPRESSING START 
OR FOLLOW ONE OF THE HINTS BELOW. 

OP- CODE VIOLATE 

THIS IS A SERIOUS PROBLEM AND MAY INDICATE THAT EXECUTING THE 
PROCESSOR FUNCTION TEST IS IN ORDER. 

PARITY ERROR 

THIS IS A MEMORY PARITY ERROR AND MAY BE THE RESULT OF READING BAD 
I/O DATA INTO CORE STORAGE. IF THE INTERRUPT IS A RESULT OF I/O DATA 
THE WAIT INSTRUCTION MAY BE NOP-ED FOR HIGH SPEED OPERATION, THUS 
ALLOWING THE OPERATOR TO SCOPE THE APPROPRIATE LINES. 
EXECUTION OF THE CORE TEST MAY BE IN ORDER. 

STORAGE PROTECT VIOLATIONS 

STORAGE PROTECT VIOLATIONS SHOULD NOT OCCUR AS THE RESULT OF I/O 
OPERATIONS. 

CHANNEL ADDRESS REGISTER CHECK 

EXECUTION OF THE CAR TEST PROGRAM MAY BE IN ORDER. 

AUX CORE ERROR 

AN OP CODE ERROR OR A PARITY ERROR HAS OCCURRED WHILE AUX CORE 
WAS SELECTED. LOCATION CRCK WAS SET DURING EXECUTION OF THE AUX 
CORE FUNCTION TEST AND THIS (THE ONLY MONITOR CONTROLLED DFT 
USING AUX CORE) SHOULD NOT CAUSE THE WAIT TO OCCUR. 
IF AN AUX CORE ROUTINE WAS RUNNING CONCURRENTLY WITH MONITOR 
THERE IS NO RETURN TO AUX. I.E.- OPERATOR ANALYSIS IS REQUIRED. 



2) 



3) 



X. REQUEST DEVICE 



1) 



THIS ROUTINE IS SHARED IN COMMON BY ALL OF MONITOR CONTROLLED 
PROGRAMS AND THE MONITOR. IT IS USED TO REQUEST THE AREA COOE AND 
MODIFIER OF A DEVICE AND THAT THE COMMON INTERRUPT LEVEL ROUTINE 
TRANSFER TO THE USER'S DEVICE INTERRUPT ROUTINE WHEN THE DEVICES 
INTERRUPT COMES ON. TO DO THIS THE USER CALLS ON THE REQUEST DEVICE 
ROUTINE VIA THE MONITOR TRANSFER VECTOR. 

BSI I REQDV 

DC ADDR1 (BUSY RETURN) 

DC ADDR2 (DDEF) 

DC ADDR3 (DVA) 

DC ADDR4 (TERMINATOR) 

ADDR1 

ADDR1 IS THE BUSY RETURN ADDRESS IF THE DEVICE REQUESTED (DEFINEO BY 
THE DDEF) HAS BEEN PREVIOUSLY REQUESTED BY SOME OTHER PROGRAM, 
CONTROL IS TRANSFERRED TO THE ADDRESS SPECIFIED IN ADDR1. THE USER'S 
BUSY ROUTINE WILL MOST LIKELY SET THE ADDRESS OF THE REQUEST CALL IN 
THE MLSCF AND RETURN TO START. THE REQUEST CALL WOULD THEN BE MADE 
AGAIN AS A RESULT OF THE POLL. THIS PROCESS WOULD CONTINUE UNTIL THE 
DEVICE IS RELEASED BY THE OTHER USER (REFER RELEASE DEVICE ROUTINE) 
AND THE REQUEST CALL IS SUCCESSFUL. 



ADDR2 

ADDR2 IS THE ADDRESS OF THE DDEF OF DEVICE DESIRED BY USER PROGRAM. 

A DDR 3 

ADDR3 IS THE ADDRESS OF THE DVA SPECIFIED BY THE USER FOR THE AREA 
CODE AND MODIFIER THE CONTENTS OF DVA+1 IS THE INTERRUPT ENTRY POINT 
FOR THE USERS DEVICE INTERRUPT ROUTINE. 

NOTE 

THERE MAY BE ANY NUMBER OF DOEF'S AND DVA'S HOWEVER, 
UNLESS ALL DEVICES REQUESTED ARE AVAILABLE (NOT BUSY), NO 
REQUESTS WILL BE GRANTED AND A BUSY RETURN MADE. 



BSI I 



REQDV 





DC 


ADDR1 (BUSY) 


DEVICE 


IDC 


ADDRESS 2.1 (DDEF) 




DC 


ADDR3.1 (DVA) 


DEVICE 


2 DC 


ADDR2.2 (DDEF) 




DC 


ADDR3.2 (DVA) 


DEVICE 


NDC 


A0DR2.N (DDEF) 




DC 


ADDR3.N (DVA) 




DC 


ADDR4 (TERM) 



4) ADDR4 

ADDR4 IS THE ADDRESS OF A TERMINATOR. 

TO GRANT A DEVICE REQUEST, THE ROUTINE MUST FIRST DETERMINE THE 
AVAILABILITY OF EACH DEVICE AND THE CORRECTNESS OF THE DDEF. THE DDEF 
IS VERIFIED BY CHECKING THAT THE INTERRUPT LEVEL SPECIFIED WAS EDITED 
ON EDIT CARD 1, THAT THE ILSW IS POPULATED, THAT THE CHANNEL 
SPECIFIED IS CORRECT (MAC), AND THAT THE DDEF HAS NOT ALREADY BEEN 
USED TO REQUEST THE SAME DEVICE (BIT OF THE DDEF = 1). IF ALL 
CHECKS ARE SUCCESSFUL THE OEVICE AREA CODE IS PLACED AT THE ADDRESS 
SPECIFIED IN THE DVA AND THE CONTENTS OF OVA + 1 IS PLACED IN THE 
RESPECTIVE INTERRUPT LEVEL TABLES. THE DDEF APPROVED BIT IS SET 
ON (BIT 0=1). IF THE DEVICE IS A CHANNEL DEVICE THE CHANNEL 
INDICATOR IS SET ON (MCH). THE DEVICE INTERRUPT ROUTINE IN THE USER 
PROGRAM IS NOW RESPONSIBLE FOR RESETTING AND PROPER HANDLING OF THE 
DEVICE INTERRUPT. IF THE CHECKS ARE NOT SUCCESSFUL AN ERROR STOP 
OCCURS. 

NOTE 

THE AREA CODE ONCE PLACED IN THE DVA MUST NOT BE ALTERED. 

Y. RELEASE DEVICE ROUTINE 

THIS ROUTINE IS THE INVERSE OF THE REQUEST DEVICE ROUTINE. IT IS USED 
TO RELEASE PREVIOUSLY REQUESTED DEVICES. TO RELEASE A DEVICE OR 
DEVICES, THE USER PROGRAM CALLS 



BSI I RELDV 
DC ADDR 1 
DC ADDR 2 



(DDEF) 
(TERMINATOR) 
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BSI I 
DEVICE IDC 
DEVICE 2DC 
DEVICE NDC 

DC 



RELDV 
ADDR 1.1 
ADDR 1.2 
ADDR l.N 
ADDR 2 



(DDEF) 
(DDEF) 
(DDEF) 
(TERMINATOR) 



TO RELEASE A DEVICE THE ROUTINE MUST FIRST CHECK THE DDEF FOR 
CORRECTNESS. TO DO THIS EACH DDEF SPECIFIED IN THE CALL IS EXAMINED 
TO INSURE THAT THE APPROVEO BIT (BIT = 1) IS ON (REFER REQUEST 
DEVICE). IF THE APPROVED BIT IS NOT ON NO RELEASE WILL OCCUR. 

NOTE 

THE SAME ODEF MUST BE USED TO RELEASE A DEVICE THAT WAS 
USED TO REQUEST IT. 

AFTER EACH DDEF HAS BEEN VERIFIEDt THE AREA CODE IS FETCHED BACK 
FROM THE USER'S DVA AND SET IN THE RESPECTIVE LOCATION IN THE 
INTERRUPT LEVEL TABLESt AND THE APPROVED BIT (BIT 0=1) IN THE USERS 
DDEF IS SET TO 0. 



3. CHECK THE BYPASS-ERROR-PRINTOUT SWITCH. IF THE SWITCH IS OFF, THE 
ERROR ROUTINE CALLS ON THE LOG ROUTINE AND IDLES UNTIL THE 
MESSAGE IS DONE. IF THE LOG AREA IS BUSY, CONTROL IS TRANSFERED 
THE BUSY ADDRESS. 

4. CHECKS THE HALT-ON-ERROR SWITCH AND IF ON, TRANSFERS CONTROL TO 
THE HALT ROUTINE. 

5. CHECKS THE LOOP-ON-ERROR SWITCH AND IF ON, TRANSFERS CONTROL 
TO THE LOOP-ON-ERROR ADDRESS. IF OFF, TRANSFERS CONTROL TO THE 
NORMAL RETURN ADDRESS. 



AA. LOG ROUTINE 



Z. ERROR ROUTINE 



THIS ROUTINE IS USED BY THE MONITOR CONTROLLED PROGRAMS FOR ERROR 
PRINTOUT AND CONTROL. THE PRINTOUT IS ACCOMPLISHED BY THE ERROR 
ROUTINE CALLING ON THE LOG ROUTINE. THE CONTROL IS ACCOMPLISHED VIA 
THE BIT SWITCHES. 

THE USER PROGRAM CALLS ON THE ERROR ROUTINE VIA THE TRANSFER VECTOR 
BY A- 



BSI I 
DC 


ERROR 
ADORl 


(MESSAGE STRING) 


DC 
DC 


ADDR2 
ADDR3 


(BUSY RETURN) 
(LOOP ERROR) 



1) 



1) ADDR1 



ADDR1 IS THE ADORESS OF THE USER'S PROGRAMS ERROR MESSAGE 
STRING. 



2) ADDR 2 



ADDR2 IS THE AODRESS TO RETURN CONTROL IF THE OUTPUT AREA 
IS ALREADY BUSY. 



3) ADDR3 

ADDR3 IS THE ADDRESS TO RETURN TO IF THE LOOP ON ERROR SWITCH 
IS ON. 

UPON ENTRY, THE ERROR ROUTINE WILL DO THE FOLLOWING, 

1. FETCH THE AODRESS OF THE USER'S MESSAGE AND PLACE IT IN THE 
ERROR ROUTINE'S LOG CALL. 

2. FETCH THE BUSY AODRESS AND LOOP-ON-ERROR ADDRESS, AND COMPUTE 
A NORMAL RETURN ADDRESS. 



2) 



THIS ROUTINE IS SHARED BY THE MONITOR AND MONITOR CONTROLLED PROGRAMS 
TO COMMUNICATE WITH THE OPERATOR. STATUS (AOXX), COMMANDS (COXX) AND 
DATA (DOXX) MESSAGES ARE OUTPUT IN THIS ROUTINE BY A DIRECT CALL. 
ERROR MESSAGES (EOXX) MUST FIRST CALL ON THE ERROR ROUTINE (REFER 
ERROR ROUTINE) WHICH IN TURN CALLS ON THE LOG ROUTINE. 

ALL ERROR MESSAGES ARE FLAGGED BY TWO ASTERISKS TO THE LEFT OF THE 
PRINTOUTS. MULTIPLE LINE MESSAGES MAY BE INTERRUPTED BY MONITOR 
PRINTOUTS. REFER TO THE DESCRIPTION OF THE ENGLISH PRINT ROUTINE 
FOR A SAMPLE PRINTOUT. 

THIS ROUTINE CHECKS IF THE ENGLISH PRINT ROUTINE IS IN CORE, AND 
IF SO TRANSFERS CONTROL TO THAT ROUTINE AFTER BUILDING THE NORMAL 
MESSAGE IN CORE. IF THE ENGLISH ROUTINE HAS BEEN OVERLAID BY TEST 
PROGRAMS NO XFER IS MADE AND THE MESSAGE IS PRINTED WITHOUT ENGLISH. 

TO USE THIS ROUTINE THE USER CALLS ON LOG VIA THE TRANSFER VECTOR BY 
A- 



BSI I LOG 
DC ADDR1 
DC ADDR2 
DC ADDR3 



( MESSAGE STRING) 
( BUSY RETURN ) 
( TERMINATION ) 



ADDR1 



ADDR1 IS THE ADDRESS OF THE USERS MESSAGE STRING. THE MESSAGE STRING 
CONSISTS OF A STRING OF COMPUTER WORDS CONTAINING THE FOLLOWING. 

WORD 1) LINE FLAG AND WORD COUNT 

WORD 2) CONTROL LINE 

WORD 3) MID 

WORD 4) MOOIFER 1 

WORD 5) MODIFIER 2 

WORD N) MODIFIER N (WHERE N IS LESS THAN 8) 

NOTE. 

MODIFIERS ARE NOT NECESSARY, BUT A MID IS ALWAYS REQUIRED. 

A DDR 2 

ADDR2- CONTROL IS TRANSFER TO THE ADDRESS SPECIFED IF THE OUTPUT AREA 
IS BUSY. THE ROUTINE AT THIS ADORESS WOULD NORMALLY PLACE AN ENTRY IN 
THE MLSCF POINTING TO THE LOG CALL AND EXIT TO START. THE LOG CALL 
WOULD AGAIN BE MADE IN THE NEXT POLL. 
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3) ADDR3 

ADDR3- IT IS TO THIS ADDRESS THE THE MONITOR WILL RETURN IMMEDIATELY 
FOLLOWING THE COMPLETION OF THE MESSAGE. (REFER MONITOR TERMINATION 
ADDRESS ROUTINE). THE PRESENCE OF THIS ADDRESS IN A LOG CALL PERMITS 
THE PRESENT USER OF THE LOG ROUTINE FIRST OPPORTUNITY TO FOLLOW WITH 
A CONTINUATION MESSAGE. 

THE LOG ROUTINE CONSISTS OF SIX SUBROUTINES DESIGNED TO HANDLE 
HEXIDECIMAL, DECIMALt AND DOUBLE PRECISION DECIMAL OUTPUT. (REFER TO 
THE LOG ROUTINE DESCRIPTION IN THE MONITOR LISTING FOR A DESCRIPTION 
OF THESE ROUTINES. ) 

THERE ARE A NUMBER OF DIFFERENT OUTPUT FORMATS POSSIBLE USING THE LOG 
ROUTINE. THE PROGRAMMER SELECTS THE FORMAT HE DESIRES BY USE OF 
W0RD1 AND W0RD2 IN THE MESSAGE STRING. 

4) W0RD1 

W0RD1 - LINE CONTROL AND WORD COUNT. BIT OF THIS WORD IS THE LINE 
FLAG. IF THIS BIT = IT IS THE FIRST MESSAGE OF A STRING AND THE 
PID, MID, RID AND RAD ARE OUTPUT. IF THIS BIT =1 IT IS A 
CONTINUATION MESSAGE OF A PREVIOUS MESSAGE. MESSAGES WITH A LINE 
FLAG =1 ARE INDENTED 22 SPACES OMITTING THE PID, MID, RID, ANO RAD, 

BITS 8-15 OF THIS WORD INDICATE THE NUMBER OF MODIFIERS IN THE 
MESSAGE. (IF THE WORD COUNT =0 NO MODIFIERS ARE OUTPUT. IF THE WORD 
COUNT IS 3 THREE MODIFIERS ARE OUTPUT.) 



5) W0RD2 

W0RD2- HEX-DEC SWITCH. IF BIT 15 OF THIS WORD =0 THE MODIFIERS ARE TO 
BE CONVERTED IN HEXADECIMAL, IF IT =1 THE MODIFIERS ARE TO BE 
CONVERTED TO DECIMAL. 

IF THE CONVERSION IS A FLAGED DECIMAL THEN BITS 0-5 ARE USED TO 
INDICATE WHICH MODIFIERS SHOULD BE CONVERTED DOUBLE PRECISION DECIMAL 
(IE, IF BIT 15=1 AND BIT ANO BIT 3 =1 THEN MODIFIERS 1 AND 2 AND 
MODIFIERS 4 AND 5 ARE CONVERTED DOUBLE PRECISION) 

BB. MONITOR SYSTEMS EDIT 

THIS ROUTINE PERFORMS THE MONITOR SYSTEMS EDIT. THE MONITOR PROGRAM 
OPERATING PARAMETERS ARE SET UP BASED ON THE INFORMATION CONTAINED IN 
THE MONITOR SYSTEM EDIT CARDS. THE EDIT CARDS CONSISTS OF 4 FORMATS 
AND THE MONITOR PROGRAM ALWAYS REQUIRES AT LEAST 1 CARD OF EACH 
FORMAT. THE FIRST THREE FORMATS ARE REFERED TO AS EDIT CARD 
(FORMAT), EDIT CARD 1, AND EDIT CARD 2. THE FOURTH FORMAT IS THE END 
OF EDIT CARD. THE RULES FOR FILLING OUT EACH OF THE MONITOR EDIT 
CARDS ARE CONTAINED ON THE MONITOR EDIT SHEETS. (REFER SECTION 6) 
THIS ROUTINE ACTUALLY CONSISTS OF 5 SUBROUTINES. THESE SUBROUTINES 
ARE- 
EDIT CONTROL SUBROUTINE 
EDIT CARD SUBROUTINE 
EDIT CARD 1 SUBROUTINE 
EDIT CARD 2 SUBROUTINE 
END OF EDIT CARD SUBROUTINE 



EDIT CONTROL SUBROUTINE 

THE EDIT CONTROL SUBROUTINE CHECKS THAT THE PID OF THE EDIT CARD IS 
CORRECT (CORRESPONDS TO THE MONITOR PID). THAT THE EDIT CARDS ARE IN 
SEQUENCE AND THAT A VALID NUMBER OF ENTRIES ARE SPECIFED. IT 
DETERMINES FROM THE SEQUENCE NUMBER WHAT FORMAT THE CARD IS AND 
TRANSFERS CONTROL TO THE CORRECT EDIT CARD SUBROUTINE. 

EDIT CARD 

EDIT CARD PLACES THE DDEF'S CORRESPONDING TO CONSOLE INTERRUPT AND 
OUTPUT SERVICE IN THE MONITOR EOIT WORDS THEN TRANSFERS TO THE 
LOADER TO READ EDIT CARD 1. 

EDIT CARD 1. 

THIS ROUTINE ASSIGNS EACH OF THE 12 UNIQUE INTERRUPT ROUTINES TO A 
LEVEL. THE SPECIFIC LEVEL OF EACH ROUTINE CORRESPONDS TO THE ORDER 
IN WHICH THE LEVELS ARE ENTERED ON THE CARD. THE UNMASK REGISTER IS 
ALSO DEVELOPED IN THE SAME MANNER. THUS, ONLY THOSE LEVELS 
SPECIFIED ON CARD FORMAT 1 WILL BE UNMASKED. THIS ROUTINE CHECKS 
THAT NO INTER. LEVEL IS ENTERED MORE THAN ONCE IN THE CARD, AND THAT 
THE INTERRUPT LEVELS CORRESPONDING TO CONSOLE AND I/O DEVICES ARE 
REFERENCED. 

EDIT CARD 2 

THIS ROUTINE PLACES THE AREA CODE AND MODIFIERS INTO THE CORRECT 
ILSW BIT POSITION IN THE INTERRUPT LEVEL TABLES. THERE ARE TWO EDIT 
FIELDS FOR EACH OEVICE SPECIFIED. THE FIRST IS THE DDEF FOR THE 
DEVICE AND THE SECOND IS THE AREA CODE AND MODIFIER. EVERY 
DEVICE IN THE SYSTEM SHOULD BE SPECIFIED ON FORMAT 2 CARDS 
( A SUGGESTED METHOD IS BY ACCENDING INTERRUPT LEVELS AND ILSW BITS. 
IE, THE DEVICE ON IL 0, ILSW BIT WOULD BE FIRST IL 0, ILSW BIT 1 
NEXT ETC.) HOWEVER ONLY THOSE DEVICES WHOSE INTERRUPT LEVEL WAS 
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SPECIFIED ON EDIT FORMAT 1 WILL BE ENTERED INTO THE SYSTEM. 
THEREFORE THOSE DEVICES WHOSE RESPECTIVE DFT IS TO XEQ MUST 
REFERENCE THE DEVICES IL. AND THE DEVICE MUST BE SPECIFIED IN THE 
EDIT CARD 2 FORMAT. 



ICE SPECIFIED ON EDIT CARD 
THE LOG ROUTINE, THE MONITOR 
SAGE DECK LOADER ROUTINE, AND 
THIS ROUTINE THEN RELOCATES 
MESSAGE DECK LOADER, AND THE 
THE C001 MESSAGE IS THEN 
PROGRAM LOAD OPTIONS TO BE 
ERED THE A002 MESSAGE IS 
S TRANSFERED TO THE LOADER 



END OF EDIT CARD 

THIS ROUTINE DETERMINES IF THE LOG DEV 
IS AN 1816/1053 OR 1443 AND MODIFIES 
ENGLISH MESSAGE TABLE, THE ENGLISH MES 
THE ENGLISH PRINT ROUTINE ACCORDINGLY. 
THE ENGLISH MESSAGE TABLE, THE ENGLISH 
ENGLISH PRINT ROUTINE INTO UPPER CORE. 
OUTPUT AND THE ROUTINE HALTS TO ALLOW 
SELECTED. AFTER OPTIONS HAVE BEEN ENT 
OUTPUT (UNLESS BYPASSED) AND CONTROL I 
TO LOAD THE TEST PROGRAMS. 

CC. MONITOR ENGLISH MESSAGE TABLE 

THIS TABLE CONTAINS THE CODE FOR THE ENGLISH PORTION OF ALL MONITOR 
INITIATED PRINTOUTS. THE BEGINING AND ENO OF EACH MESSAGE IN THE 
TABLE IS LOCATED BY A TERMINATOR (FFFF) SO THAT THE TABLE BEGINS 
AND ENDS WITH A TERMINATOR AND INDIVIDUAL MESSAGES ARE SEPARATED BY 
A SINGLE TERMINATOR. EACH MESSAGE IS IDENTIFIED BY THE PID AND MID 
IN THE FIRST TWO WORDS. EACH INDIVIDUAL LINE OF PRINT WITHIN A 
MESSAGE BEGINS WITH A COUNT OF THE NUMBER OF CHARACTERS TO BE 
PRINTED IN THAT LINE. LINES OF PRINT WITHIN A MESSAGE ARE SEPARATED 
ONLY BY THESE CHARACTER COUNT WORDS. AT THE TIME THE PROGRAM IS 
LOADED THE CHARACTERS TO BE PRINTED ARE CODED IN A SPECIAL SIX BIT 
CODE (SEE CODE TABLE IN THE ENGLISH DECK LOADER ROUTINE IN LISTING). 
THIS CODE IS CONVERTED TO 1816-1053 OR 1443 CODE BY THE MONITOR 
SYSTEM EDIT ROUTINE. 

DD. MONITOR ENGLISH MESSAGE DECK LOADER ROUTINE 

THIS ROUTINE IS ENTERED WHEN THE MONITOR ENGLISH MESSAGE DECK IS 
INCLUDED IN THE PROGRAM DECK TO BE LOADED. THIS ROUTINE READS 
THE CARDS IN THE ENGLISH MESSAGE DECK, CONVERTS THE CODED CHARACTERS 
TO 1816-1053 OR 1443 CODE, AND STORES THE CONVERTED MESSAGES IN 
ANY UNUSED CORE STORAGE FOLLOWING THE LAST TEST PROGRAM LOADED. 
ONLY THOSE MESSAGES WHICH ARE APPLICABLE TO TEST PROGRAMS IN CORE 
WILL BE STORED. THIS PREVENTS FILLING CORE WITH MESSAGES WHICH 
WILL NOT BE NEEDED. THE FORMAT OF THE STORED MESSAGES IN CORE 
WILL BE THE SAME AS DESCRIBED FOR THE MONITOR ENGLISH MESSAGE 
TABLE. IF ALL APPLICABLE MESSAGES ARE SUCCESSFULLY STORED THE 
ADDRESS OF THE CONSTRUCTED TABLE WILL BE STORED IN THE ENGLISH 
PRINT ROUTINE. IF CORE BECOMES FULL BEFORE ALL MESSAGES ARE 
STOREO AN A004 MESSAGE WILL BE OUTPUT, THE TABLE ADDRESS WILL BE 
SET TO ZERO, AND ALL REMAINING CARDS WILL BE PASSED THROUGH THE 
1442 WITHOUT BEING READ. THIS WILL CAUSE ENGLISH TO BE PRINTED 
ONLY FOR MONITOR INITIATED MESSAGES. THE LAST CARD INDICTOR 
WILL CAUSE A XFER TO THE CONTROL SECTION. 

EE. ENGLISH PRINT ROUTINE 

THE LOG ROUTINE WILL XFER TO THIS ROUTINE FOR EACH MESSAGE TO BE 
PRINTED UNLESS SOME PORTION OF THE ENGLISH ROUTINES ARE OVERLAID 
BY TEST PROGRAMS. THIS ROUTINE WILL RETURN CONTROL TO THE LOG 
ROUTINE FOR PRINTING OF THE NORMAL MESSAGE WITHOUT ENGLISH IF ANY 
OF THE FOLLOWING CONDITIONS EXIST — 

1. THE LOG CALL IS FOR A CONTINUATION MESSAGE (NO PID, MID, RID, RAD) 

2. THE BYPASS ENGLISH OPTION (SWO BIT 10) IS SELECTED. 

3. THE LOG CALL IS FOR A MESSAGE WHICH HAS ALREADY BEEN PRINTED 
WITH ENGLISH IN ONE OF THE LAST FOUR ENGLISH PRINTOUTS. 

4. THE ENGLISH FOR THE MESSAGE IS NOT IN CORE. 



IF NONE OF THE ABOVE CONDITIONS EXIST THE ENGLISH PRINT ROUTINE 
WILL— 

1. BUILO A HEAOING LINE IN CORE DEPENDING ON THE NUMBER AND 
TYPE (HEX/DEC) OF MODIFIERS TO BE PRINTED. 

2. PRINT THE HEADING LINE. 

3. PRINT THE NORMAL HEX-DEC LINE. 

4. LOCATE THE ENGLISH MESSAGE IN EITHER THE MONITOR ENGLISH MESSAGE 
TABLE OR THE ENGLISH TABLE BUILT BY THE ENGLISH DECK LOADER RTN. 
THE CORRECT MSG IS LOCATED BY REFERENCING THE PID AND MID. 

5. PRINT THE ENGLISH MESSAGE INDENTING EACH ENGLISH LINE 7 SPACES. 

NOTE— THE ENGLISH PRINT ROUTINE PRINTS EACH LINE BY CALLING ON A 
SUBSECTION OF THE LOG ROUTINE. THE RETURN TO THE ENGLISH PRINT 
ROUTINE AFTER EACH LINE IS VIA A MONITOR MLSCF ENTRY SET IN THE 
INTERRUPT SERVICE SECTION OF THE LOG ROUTINE. 



SAMPLE PRINTOUT 

PID MID RID RAD MODI M0D2 M0D3 
0100 A001 0001 RRRR XXXX XXXX XXXX 

ENGLISH TEXT LINE 1 

ENGLISH TEXT LINE 2 



PID MID RID RAD 
0200 A002 0001 RRRR 
ENGLISH TEXT 

PID MID RID RAD 
**0300 E003 0001 RRRR 
ENGLISH TEXT 



MODI M0D2 
XXXXXXXX -XXXXXXXX 



MODI 
XXXX 



MODI M0D2 
XXXX XXXX 



PID MID RID RAD 
0400 A003 0001 RRRR 

ENGLISH TEXT LINE 1 
ENGLISH TEXT LINE 2 

XXXX XXXX 
XXXX XXXX 
XXXX XXXX 
XXXX XXXX 
XXXX XXXX 

0100 A001 0001 RRRR XXXX XXXX 

**0300 E003 0001 RRRR XXXX 

PID MID RID RAD MODI M0D2 

0500 A004 0001 RRRR XXXX XXXX 

ENGLISH TEXT LINE 1 

XXXX XXXX 
XXXX XXXX 

PID MID RID RAD MODI M0D2 M0D3 
**0100 E009 0001 RRRR XXXX XXXX XXXX 
ENGLISH TEXT LINE 1 
ENGLISH TEXT LINE 2 

XXXX XXXX 
XXXX XXXX 
XXXX XXXX 



COMMENTS 

(HEADING LINE HEX MODIFIERS) 
(NORMAL MESSAGE) 
(ENGLISH TEXT — MAY BE ANY 
NUMBER OF LINES IN LENGTH) 

(HEADING LINE DECIMAL MODIFIERS) 



(FLAGGED ERROR MESSAGE) 



(CONTINUATION LINES— MAY BE 
ANY NUMBER — ONLY HEX/DEC 
MODIFIERS ARE PRINTED) 



(NO ENGLISH— MSGS 0100 A001, 
0200 A002, 0300 E003, AND 
0400 A003 ARE NOW BEING SAVED) 

(NEW MSG — 0200 A002, 0300 E003, 
0400 A003, AND 0500 A004 NOW 
BEING SAVED) 

(CONTINUATION LINES) 

(MONITOR MESSAGE INTERRUPTS 
CONTINUATION LINES) 



(REMAINING CONTINUATION LINES 
FROM 0500 A004. LINE FEED AHEAD 
OF FIRST LINE INDICATES THE 
INTERRUPTION) 
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FF. LOADER DETERMINATION ROUTINE 

THIS ROUTINE IS ENTERED FROM THE LOADER WHEN THE MONITORS END CARD 
IS READ (BEFORE THE MONITOR EDIT CARDS). THIS ROUTINE DETERMINES 
THE LOADER BEING USED (CARD, PAPER TAPE, DIMAL) ANO MODIFIES THE 
MONITOR EDIT AND RETURN TO LOADER ROUTINES ACCORDINGLY. THE ROUTINE 
THEN XFERS TO THE LOADER TO READ THE MONITOR EDIT CARDS. 

5.4 FUNCTIONAL DESCRIPTION 

THE FUNCTIONAL DESCRIPTION OF THE MONITOR IS DIVIDED INTO A 
DISCUSSION ON EACH OF THE 3 INDEPENDENT FUNCTIONS OF THE MONITOR. 
THESE 3 FUNCTIONS ARE- 
LOADING 
POLL 
INTERRUPT HANDLING 

A. LOADING FUNCTION 

THE LOADING FUNCTION CONSISTS OF THE REQUIRED ROUTINES AND 
COMMUNICATION TO LOAD A PROGRAM INTO CORE STORAGE, LOCATE IT, AND 
EDIT IT PROPERLY. DURING THE LOAD PHASE THE FOLLOWING FUNCTIONS 
ARE PERFORMED. 

1. THE LOADER PROGRAM READS AND PLACES INTO CORE EACH BINARY CARD 
UNTIL A XFER CARD IS READ. 

2. THE MONITOR XFER CARD CAUSES A XFER TO THE MONITOR LOADER 
DETERMINATION ROUTINE WHICH SETS INDICATORS IN THE MONITOR 
THEN XFERS TO THE BEGIN ROUTINE. THE BEGIN ROUTINE XFERS BACK 
TO THE LOADER TO READ EDIT CARDS. 

3. AFTER EACH MONITOR EDIT CARD IS REAO CONTROL IS TRANSFERED TO 
THE MONITOR SYSTEM EDIT ROUTINE WHICH EDITS THE MONITOR. WHEN 
THE MONITOR END OF EDIT CARD IS READ THE SYSTEM EDIT ROUTINE 
CONVERTS THE MONITOR ENGLISH MESSAGE TABLE TO 1443 OR 1816/1053 
CODE AND RELOCATES THE ENGLISH MESSAGE TABLE, THE ENGLISH 
MESSAGE DECK LOADER, AND THE ENGLISH PRINT ROUTINE INTO THE 
HIGHEST AVAILABLE CORE LOCATIONS. THE C001 MSG IS THEN PRINTED 
AND WAIT 2 IS ENTEREO TO ALLOW LOAD OPTION SELECTION. AFTER 
OPTION SELECTION, CONTROL IS XFERED TO THE LOADER TO LOAD 

TEST PROGRAMS. 

4. THE LOAOER STORES THE TEST PROGRAMS IN CORE. THESE PROGRAMS MAY 
BE LOADED INTO THE AREAS OCCUPIED BY THE SYSTEM EDIT, AND LOADER 
DETERMINATION ROUTINES, AND THAT PORTION OF THE ENGLISH TABLE 
CONCERNING A002 AND C001 PRINTOUTS. THE OVERLAY OF THESE 
SECTIONS WILL HAVE NO EFFECT ON THE MONITOR OPERATION SINCE 
THEY HAVE ALREADY COMPLETED THEIR FUNCTIONS. TEST PROGRAMS MAY 
ALSO OVERLAY THE ENGLISH TABLE AND ROUTINES STORED IN UPPER CORE. 
IF THIS OCCURS THE MONITOR WILL LOSE ALL ENGLISH PRINT CAPABILITY 

5. THE XFER CARD AT THE ENO OF EACH PROGRAM LOADED WILL CAUSE A 
CALL ON THE BEGIN ROUTINE WHICH WILL XFER TO THE LOADER TO READ 
EDIT CARDS. 

6. EACH EDIT CARD READ WILL CAUSE A XFER TO THE PROGRAM EDIT 
ROUTINE WHICH WILL EDIT THE PROGRAM. WHEN AN END OF EDIT CARD 
IS READ THE EDIT ROUTINE WILL DETERMINE THE MODE. IF THE MODE 

IS OVERLAP CONTROL IS XFERED TO THE LOADER TO LOAD MORE PROGRAMS. 
IF THE MODE IS BOOTSTRAP CONTROL IS TRANFERED TO THE POLL 
ROUTINE TO ALLOW PROGRAM EXECUTION. 

7. IF THE MONITOR ENGLISH MESSAGE DECK (PID 080C) IS USED CONTROL 
IS XFERED TO THE ENGLISH MESSAGE DECK LOADER ROUTINE WHICH WILL 
READ THE ENGLISH MESSAGE CARDS AND BUILD A TABLE OF ENGLISH 
MESSAGES IN CORE FOLLOWING THE LAST TEST PROGRAM. 

8. A LAST CARO INDICATION WILL CAUSE EITHER THE ENGLISH MESSAGE 
DECK LOADER OR THE RELOCATABLE LOADER TO XFER TO POLL. 
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POLL IN THE MONITOR CONSISTS OF THE SCAN OF THE MONITOR PID TABLE BY 
THE CONTROL SECTION. POLL IS ENTERED FROM EITHER THE LOADER OR THE 
EDIT PHASE. WHENEVER THE POLLING SUBROUTINE FINDS AN ENTRY IN THE 
USER MLSCF CONTROL IS TRANSFERED TO THE ADDRESS SPECIFIED. THE USERS 
SUBROUTINE MAY TEST A DEVICE FUNCTION OR IT MAY CALL ON A NUMBER OF 
MONITOR SUBROUTINES AVAILABLE TO IT. 

THESE SUBROUTINES ARE- 
END 

REQUEST DEVICE 
RELEASE DEVICE 
LOG 
ERROR. 

ALL OF THE ROUTINES ABOVE RETURN TO THE USER SUBROUTINE EXCEPT END. 
THE END ROUTINE EXAMINES THE LOOP SW (BIT 11). IF BIT 11=1, CONTROL 
IS TRANSFERED TO THE USER SPECIFIED LPA. IF BIT 11=0, CONTROL IS 
TRANSFERED TO EPA. 

THE USER SUBROUTINE RETURNS CONTROL TO POLL VIA A BSC I START. 

INTERRUPT HANDLING 

WHENEVER AN INTERRUPT OCCURS IT IS HANDLED BY THE INTERRUPT FUNCTION 
OF THE MONITOR. ONLY THOSE INTERRUPT LEVELS SPECIFIED ON MONITOR 
EDIT CARD 1 ARE UNMASKED, AND THE INTERRUPT LEVEL TRANSFER SECTION IS 
DEVELOPED TO REFLECT THESE LEVELS. THE UNIQUE ROUTINES ARE ASSIGNED 
TO THE LEVELS SPECIFIED AND IN THE ORDER SPECIFIED. 

THE INTERRUPT CAUSES A TRANSFER VIA THE TRANSFER SECTION TO THE 
COMMON INTERRUPT ROUTINE. THE COMMON INTERRUPT ROUTINE CHECKS THE 
CORRESPONDING UNIQUE ROUTINE. THE UNIQUE ROUTINE TRANSFERS TO 
ILSW AND EITHER TRANSFERS TO THE USER OEVICE INTERRUPT ROUTINE OR THE 
INTERRUPT LEVEL ERROR ROUTINE. BOTH OF THESE ROUTINES RETURN TO THE 
COMMON ROUTINE WHICH RETURNS TO THE UNIQUE ROUTINE WHICH IN TURN 
BRANCHES OUT OF INTERRUPT. 

5.5 SERVICE HINTS 

1. PATCHES 

OCCASIONALY IT MAY BECOME NECESSARY TO MAKE PATCHES TO THE 
PROGRAM IN THE FIELD. THIS PROCEDURE WILL DESCRIBE HOW TO MAKE 
PATCHES TO THOSE PROGRAMS WHICH ARE LOADED BY THE RELOCATABLE 
DIAGNOSTIC LOADER. (AND MORE SPECIFICALLY THE DIAGNOSTIC 

MONITOR) 

HOWEVER BEFORE ANY PATCH CAN BE MADE TO A PROGRAM IT MUST FIRST 
BE DETERMINED WHAT IN THE PROGRAM SHOULD BE PATCHED. TO DO THIS, 
TREAT THE ADDRESSES IN THE PROGRAM LISTING AS THROUGH THEY ARE 
ABSOLUTE ADDRESSES. AFTER THE AREA TO BE PATCHED HAS BEEN 
DETERMINED FOLLOW THE RULES BELOW FOR MAKING THE PATCH CARD. 



A) 



B) 



THE PATCH AREA MUST BE WITHIN THE CORE PARAMETERS OF THE 
PROGRAM. SOME PROGRAMS PROVIDE A PATCH AREA WITHIN THE 
PROGRAM, (LOOK AT THE END OF LISTING). IF A PATCH AREA IS 
NOT PROVIDED THE PATCH MUST BE PLACED SUFFICENTLY HIGH IN 
CORE SO AS TO AVOID BEING OVERLAYED BY OTHER PROGRAMS. 
THE PATCH CARD IS PUNCHED IN HEXADECIMAL FORMAT. 
COL 1 IS A PLUS SIGN 

COL 2-5 IS THE ADDRESS OF WHERE THE DATA IS TO BE PLACED. IF 
LOADING IN THE OVERLAP MODE THIS ADDRESS WILL BE 
AUTOMATICALLY DISPLACED BY AN AMOUNT EQUIVELENT TO THE 
RELOCATION FACTOR. 
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C) THE REMAINDER OF THE CARD IS COMPOSED OF THE DATA WORDS TO 
BE PLACED AT THE ADDRESS SPECIFIED AND ADJACENT CORE 
LOCATIONS. EACH DATA WORD IS PRECEEDED BY EITHER A BLANK 
COLUMN OR AN 'R'. THOSE WORDS WHICH ARE AFFECTED BY 
RELOCATION MUST BE PRECEDED BY AN »R' SIGNALING TO THE LOADER 
IT IS A RELOCATABLE WORD. 

NOTE 

PATCH CARDS MUST BE PLACED JUST PRIOR TO THE LAST BINARY 
CARD IN THE PROGRAM. 

2. MULTIPLE DEVICE PROBLEM. 

THE MULTIPLE DEVICE PROBLEM SIMPLY STATED IS THE PROBLEM OF 
RUNNING DEVICES OF THE SAME TYPE IN AN OVERLAP MODE WITH ONE 
ANOTHER. ALTHOUGH EACH PROGRAM HAS THE ABILITY OF SELECTING 
ALTERNATE DEVICES OF THE SAME TYPE USING TABLE 02, SIMULTANEOUS 
EXECUTION OF LIKE DEVICES IS NOT POSSIBLE WITH ONE PROGRAM. 
THE SOLUTION TO THIS PROBLEM IS TO CREATE SEPERATE PROGRAMS FOR 
EACH OF THE MULTIPLE DEVICES. 

TO DO THIS, NEW PROGRAMS MUST BE CREATED AND ASSIGNED FICTITIOUS 
PID'S. THE PROGRAM'S PID IS LOCATED AT ADDRESS 07FF IN ALL 
MONITOR CONTROLLED FUNCTION TESTS. 
IN ORDER TO USE THIS PROCEDURE A SPECIFIC EXAMPLE IS CHOSEN. 



EXAMPLE — A 2310 WITH THREE DISK DRIVES. 
INSTALLED AS FOLLOWS. 



THE 3 DEVICES ARE 



THOSE DEVICE PROGRAMS CAPABLE OF OPERATING MULTIPLE 
DEVICES ARE — 

2400 
1053/1816 

NOTE — THE MONITOR ENGLISH MESSAGE DECK CONTAINS ENGLISH 
MESSAGES FOR THE FOLLOWING PROGRAM PID'S. 

04, 05, 06, 07, 08, 09, OA , OB, OF, 19, 21, 22, 23, 
24, 25, 26, 27, 39 

ERRONEOUS ENGLISH MESSAGES MAY BE PRINTED IF THESE PID'S 
ARE USED WITH THE WRONG DEVICE TYPE. 

FOR THIS REASON PID'S 19 AND 39 MUST BE USED TO OPERATE 
MULTIPLE DISK DRIVES. FOR OTHER DEVICES ANY UNASSIGNED 
PID MAY BE USED. 



CE 


INT 


ILSW 


CHAN 


NEL 




LEVEL 


BIT 






1 


2 


1 


4 




2 


3 


2 


5 




3 


4 


3 


6 





THE INTERRUPT 
EACH DEVICE. 



LEVEL AND THE ILSW BIT MUST BE UNIQUE FOR 



TO BE ABLE TO RUN THE DEVICES SIMULTANEOUSLY. TWO NEW 
PROGRAM PID'S MUST BE CREATED. REPRODUCE THE BINARY 
PROGRAM 2 TIMES. MAKE UP 1 PATCH CARD (SEC. 5.5.1) FOR 
EACH OF THE NEW PROGRAMS WHICH CHANGES THE PID FROM 0900 
TO 1900 AND 0900 TO 3900. 

+07FF 1900 
+07FF 2900 

MAKE UP EDIT CARDS FOR EACH OF THE NEW PROGRAMS BY 
CHANGING THE PID ENTRY IN EACH CARD TO E1900 FOR PROGRAM 
1900 AND E3900 FOR PROGRAM 3900. REVERSE THE DRIVE 1 
ANO 2 DDEF ENTRIES FOR PROG 1900 AND THE DRIVE 1 AND 3 
ENTRIES FOR PROG 3900. 

THERE NOW EXISTS A UNIQUE PROGRAM FOR EACH FILE WHICH 
CAN BE RUN IN OVERLAP WITH ONE ANOTHER. 
THIS SAME TECHNIQUE MAY BE USEDS ON OTHER DEVICE 
PROGRAMS AS FOLLOWS. 

2310 

1443 

1627 

1054/55 

1442 
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MONITOR 
CARD 



6.1 EDIT PROCEDURE " ~~~ 

MSsV^HE^rCA^ ^Nrj^PR^^G^E^^Inf^ 1 ^ ?»*" D ~™,0N. THE PROPER EDIT CARDS 

TO PREPARE OR MOD.FY ED.T CARDS, FILL ,N THE NECESSARY D^ S^Sr^^S S ^H^ X ^dTTrS W^Wa^^ ' F " ' $ ""^ 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: I. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 00-17) 

2. THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 0-F) ' 

3. THE CHANNEL ASSIGNED TO THIS DEVICE (0-8). IF THIS IS A DPC DEVICE! PUNCH AN "f" IN THE CARD COLUMN. 



COLUMN 



CARD 



< 

o 

OH 

a. 



u. o 



< o 



O _l 
o < 



o 1 

LU 

LU 

o m 

< =>. 
o z 



10 



II 



3 



(2 



13 



LU 

o i- 

z 

OC LU 

LU 

m i- 
X — 

3 O 

Z LU 



W 



15 



16 



CONSOLE 
INTERRUPT 
DDEF 



</> x 

Z LU 

O X 

CJ 

z 
a: — 
o — - 
u. 

z 
-1 o 

LU H- 

> t- 
LU 3 

-i a> 

h- I- 

z z 



(7 



Mf 



IS 



12 







20 



21 



OUTPUT 

DEVICE 

DDEF 



U! X 

' • LU 



cc z 
o — 



-I > 

LU LU 
> Q 



3 

cc a. 



z 3 

— o 



21 



m 



r^j 



bi 



fc^ 



^ 



1 

.£^1 



?3 



31 



M 






XT 



¥ 



31 



36 



:s*. 



31 



^q 



£3 



31 



h*. 



31 



^ 



UJ 



urn 



j 



El 



^j 

£ 



CARD - CE DEVICE DEFINITION 



I m I 

I .J — ba_ 



14 



~^. 



r 



si 



bi 



56 



3 



61 



66 



i 



71 



-^ 



K. 






S 






E 



rq 



x 
^ 



s*. 



33 



1ST 



J^L 



^j 



31 



"Ki 



7=5 



i£ 



^ 



THIS FIRST EDIT CARD IS USED TO DEFINE CONSOLE INTERRUPT AND THE DESIRED CE OUTPUT DEVICE. THE CONSTANT AND FIXED DATA HAVE BEEN FIllFn l» 
USER MUST DETERMINE THE CORRECT NUMBERS FOR BOTH DEVICE DEFINITION EDIT FIELD (DDEF'S), AND PUNCH UP CARD 



M 



31 



H 



I 



DATE 
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DATE 
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415120A 



DATE k NOV 66 
EC ^15233 



DATE 15N0V68 
EC ^ll^A 



DATE 14N0V69 
EC ^31319 



DATE 17APR70 
EC ^31 321 



PROG ID 080 J -* 
PAGE 21 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 2196356 
PAGE 22 
MONITOR 































\ 
















































































































LM 


^U 


i 








EDIT PROCEDURE (CONTINUED) 


CARD 1 - INTERRUPT LEVEL DEFINITION 


THIS CARD IS USED TO SPECIFY UP TO 12 INTERUPT LEVELS TO BE USED BY THE MONITOR AND FUNCTION TESTS. INTERRUPT LEVELS FOR ALL DEVICES TO BE RUN MUST BE ENTERED ON THIS CARD - 


INCLUDING THE 2 INTERRUPT LEVELS SPECIFIED IN CARD ZERO. 


- ENTER THE INTERRUPT LEVEL FOR EACH DEVICE TO BE TESTED BY MONITOR CONTROLLED PROGRAMS. 


- ENTER ANY ONE INT. LEVEL ONLY ONCE ON THIS CARD. 


- MONITOR WILL ALLOW A MAXIMUM OF 12 INTERRUPT LEVELS AT ONE TIME. 


- LESS THAN 12 ENTRIES IS OK. « „ » ,.. . T , Tluc 


- IF SYSTEM USES MORE THAN 12 INTERRUPT LEVELS FOR DEVICES UNDER MONITOR CONTROLLED PROGRAMS^ ALTERNATE CARD ONES ARE. REQUIRED. ONLY ONE CARD 1 CAN BE USED AT A TIME. 




ENTRY 1 




ENTRY 2 




ENTRY 3 
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MONITOR 
CARDS 2,3,14,5 & END 



CARDS 2 THROUGH 1 

- USE THE FORI 

- ENTER A "DO 

- USE AS MANY 

THE FOLLOWING IS 

1. 1053 (ONE 

2. 2310 (ONE 

3. 1^3 (ONE 
k. ]Uk2 (ONE 


i - SYSTEM OEF 1 

A PROVIDED HERE 

EF " AND AN AREA 

CARDS AS REQUI 

A LIST OF DEVI 

FOR EACH DEVIC 
FOR EACH DRIVE 
FOR EACH DEVIC 
FOR EACH DEVIC 
FOR EACH DEVIC 
/E ONLY) 


NITION - THESE CARDS ARE REQUIRED TO DEFINE THE 

TO PREPARE FOR KEYPUNCHING THESE CARDS. 
CODE AND MODIFIER FOR EACH DEVICE INSTALLED ON 
RED. 

CES THAT NEED A DDEF AND AREA CODE ENTRY IF THE 

E) 

h .^ . 

E) ■*•' 

r\ .,_ . 


SYSTEM CONFIGURATION 

THE SYSTEM. 

SYSTEM IS SO EQUIPPED 


TO 


THE DIAGNOSTIC MONITOR. 






! '* " - ' "" 








1 * 1 l /~- 


X 




6. 


2*400 (ORH 


*•/ 




DDEF 
ENTRY 1 




AREA. CODE 
ENTRY 2 




DDEF 
ENTRY 3 




AREA CODE 
ENTRY k. 




DDEF 

ENTRY 5 




AREA CODE 
ENTRY 6 




DDEF 
ENTRY 7 




AREA CODE 
ENTRY 8 




DBEF 
ENTRY 9 




AREA CODE 
ENTRY A 




DDEF 
ENTRY B 


1 

i 
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************************************************** 



PREFACE 

IN ORDER TO PROVIDE A FULLER UNDERSTANDING OF 
THIS PROGRAM A BRIEF INTRODUCTION TO THE KEY- 
POINTS AND LAYOUT OF THIS LISTING FOLLOWS. 



31 MAJOR SECTIONS 



THIS LISTING HAS BEEN DIVIDED INTO 31 
MAJOR SECTIONS. EACH SECTION PROVIDES 
AN INDEPENDANT LOGICAL FUNCTION AND IS 
PROVIDED WITH A THOROUGH DESCRIPTION 
OF THAT FUNCTION. 

EACH SECTION IS SEPARATED FROM THE 
NEXT BY A MAJOR HEADING BETWEEN TWO 
FULL LINES OF *,S . 

******************************* 
******************************* 

* MAJOR HEADING 

******************************* 

******************************* 

THE 31 MAJOR SECTIONS LISTED IN ORDER 
BY MAJOR HEADING ARE 

1. PROGRAM HALT DESCRIPTIONS 

2. MONITOR/LOADER INTERFACE 

3. TRANSFER VECTOR TABLE 

4. ENGLISH MESSAGE DECK INTERFACE 

5. INTERRUPT LEVEL ROUTINES 

6. MONITOR PID TABLE 

7. COMMON INTERRUPT ROUTINE 

8. INTERRUPT ERROR ROUTINE 

9. MONITOR LOG CONTROL ROUTINE 

10. ERROR HALT ROUTINE 

11. MONITOR PROGRAM STATUS TABLE 

12. MONITOR INITIALIZATION ROUTINE 

13. MONITOR TERMINATION ADDRESS RTN 

14. CONSOLE INTERRUPT ROUTINE 



80100020 
80100030 
80100040 
80100050 
80100060 
80100070 
80100080 
80100090 
80100100 
80100110 
80100120 
80100130 
80100140 
80100150 
80100160 
80100170 
80100180 
80100190 
80100200 
80100210 
80100220 
80100230 
80100240 
80100250 
80100260 
80100270 
80100230 
80100 290 
80100300 
80100310 
80100320 
80100330 
80100340 
80100350 
80100360 
80100370 
80100380 
80100390 
80100400 
80100410 
80100420 
80100430 
80100440 
80100450 
80100 460 
80100470 
80100480 
80100490 
80100500 
80100510 
80100520 
80100530 
80100540 
80100550 
80100560 
80100570 
8C100580 
80100590 
80100600 
80100610 
80100620 
80100630 
90100640 
80100650 
80100660 
80100670 
80100680 
80100690 



3001 
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* 
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* 
* 
* 
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* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

*** 
*** 

* 
*** 

*** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



15. INTERRUPT TRANSFER VECTOR TASLF 

16. MCNITOR BEGIN ROUTINE 

17. PROGRAM EDIT ROUTINE 

18. MONITOR CONTROL SECTION 

19. MONITOR FUNCTION 01 ROUTINE 

20. RETURN TO LOADER ROUTINE 

21. MONITOR END ROUTINE 

22. INTERNAL ERROR ROUTINE 

23. REQUEST DEVICE ROUTINE 

24. RELEASE DEVICE ROUTINE 

25. ERROR LOG ROUTINE 

26. LOG ROUTINE 

27. MONITOR SYSTEM EDIT ROUTINE 

28. MONITOR ENGLISH MESSAGE TABLE 

29. ENGLISH MESSAGE DECK LOADER 

30. ENGLISH MESSAGE PRINT ROUTINE 

31. LOADER DETERMINATION ROUTINE 

EACH OF THESE SECTIONS CAN BE CROSS 
REFERENCED TO THE DOCUMENTATION BY 
THE MAJOR HEADING. 

SUBROUTINES OF THE MAJOR SECTION ARE 
SET OFF BY A FULL LINE OF DASHES 
FOLLOWED BY A SUB-HEADING. 



B 
REG 



I 
REG 



B I 
3001 04AE 



ORG /3001 
********************************* ***** a********* 
************************************************ 

PROGRAM HALT DESCRIPTION SECTION 

************************************************ 

************************************************ 

THIS SECTION IS DIVIDED INTO 3 SUBSECTIONS 
EACH SUBSECTION CORRESPONDING TO ONE OF THE 
POSSIBLE HALT FORMS. THESE HALT FORMS ARE 
THE NORMAL WAIT, THE ERROR WAIT, AND THE 
ERROR TRAP. 

EACH ERROR TRAP WAIT IS FOLLOWED BY AN MDX 
INSTRUCTION TO BRANCH BACK TO THE WAIT. 

TO LOCATE THE DESCRIPTION OF ANY WAIT, USE 
THE TWO COLUMNS OF NUMBERS APPEARING TO THE 
LEFT OF THE DESCRIPTION SECTION. THE FIRST 
COLUMN OF 4 NUMBERS IS THE CONTENTS OF THE 
B-REG. THE SECOND COLUMN OF 4 NUMBERS IS 
THE CONTENTS OF THE I-REG. 

USE THE I REG TO LOCATE THE CORRECT WAIT 
DESCRIPTION SINCE IT IS POSSIBLE THAT THE 
B-REG MAY BE CHANGED IF A CYCLE STEAL OCCURS 
AFTER THE WAIT IS ENTERED. 

NOTE.. TIMERS MAY BE LEFT RUNNING WHEN THE 
WAIT IS ENTERED. STOP TIMER BY TURNING MODE 
SWITCH TO SI POSITION THEN BACK TO RUN. USE 
THE I REG TO LOCATE THE WAIT DESCRIPTION. 



NORMAL WAIT DESCRIPTION SECTION 



DC 



WT1 + 1 



NORMAL WAIT 1 



80100700 

80100710 

80100720 

80100730 

80100740 

80100750 

80100760 

80100770 

80100780 

80100790 

80100800 

80100810 

80100820 

80100830 

80100840 

80100850 

80100860 

80100870 

80100880 

80100890 

80100900 

80100910 

80100920 

80100930 

BO 100940 

80100950 

80100960 

80100970 

80100980 

80100990 

80101000 

80101010 

80101020 

80101030 

80101040 

80101050 

80101060 

80101070 

80101080 

80101090 

80101100 

80101110 

80101120 

80101130 

80101140 

80101150 

80101160 

80101170 

80101180 

80101190 

80101200 

80101210 

80101220 

80101230 

80101240 

80101250 

80101260 

80101270 

80101280 

80101290 

80101300 

80101310 

80101320 

80101330 

80101340 

80101350 

80101360 

80101370 
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B I 

3002 0973 



B I 
3003 04C5 



B I 
3004 0577 



B I 
3005 043E 



B I 
3006 0593 
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* 
* 
* 
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* 
* 
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# 
* 
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* 
* 
* 

* 
* 
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* 



DC 



DC 



DC 



DC 



DC 



THIS WAIT IS ENTERED AT ANY TIME THAT 
NO MONITOR FUNCTIONS ARE BEING PER- 
FORMED. NO PROGRAMS ARE NOW SELECTED 
FOR EXECUTION. THE OPERATOR MAY NOW 
SELECT PROGRAM CONTROL OPTIONS OR 
PROGRAMS FOR EXECUTION. 



WT2S1 



NORMAL WAIT 2 



THIS WAIT IS ENTERED DURING THE LOAD 
PHASE AND FOLLOWS THE MONITOR C001 
INSTRUCTION TO THE OPERATOR. THE 
OPERATOR SHOULD NOW SELECT PROGRAM 
LOAD OPTIONS AND PRESS START TO 
CONTINUE LOADING. 



WT3 + 1 



NORMAL WAIT 3 



THIS WAIT IS ENTERED AS THE RESULT 
OF THE MONITOR HALT OPTION BEING 
SELECTED (MONITOR FUNCTION 00 SW 15). 
DESELECT THE HALT OPTION OR PRESS THE 
CONSOLE START BUTTON TO CONTINUE. 
THE MONITOR WILL MAKE ONE PASS 
THROUGH THE POLLING SECTION OF THE 
MONITOR CONTROL ROUTINE FOR EACH 
DEPRESSION OF THE START BUTTON AS 
LONG AS THE HALT OPTION REMAINS 
SELECTED. 



WT4 + 1 



NORMAL WAIT 4 



THE RETURN TO LOADER OPTION (MONITOR 
FUNCTION 00 SWT 9) HAS BEEN SELECTED. 
IF LOADING IS FROM CARDS OR PAPER 
TAPE, READY NEXT PROGRAM IN READER. 
SET LOAD OPTIONS IN DE SWS AND PRESS 
START. IF USING DIMAL SET LOAD 
OPTIONS AND PRESS START. TO RETURN 
TO RUNNING PROGRAMS ALREADY IN CORE, 
PRESS RESET AND START. 



WT5+1 



NORMAL WAIT 5 



PAPER TAPE EDIT WAIT. READY EDIT 
TAPE IN READER AND PRESS START OR 
ENTER EDIT DATA MANUALLY. THIS 
WAIT WILL OCCUR ONLY IF PAPER TAPE 
IPL IS BEING USED. 



WT6+1 



NORMAL WAIT 6 



PAPER TAPE END CF PROGRAM LOAD. 
IF MORE PROGRAMS ARE TO BE LOADED 
READY NEXT TAPE IN READER AND PRESS 
START. IF ALL PROGRAMS DESIRED ARE 
IN CORE PRESS RESET AND START. THIS 
WAIT WILL OCCUR ONLY IF PAPER TAPE 
IPL IS BEING USED. 



ERROR WAIT DESCRIPTION SECTION 



80101380 
80101390 
80101400 
80101410 
80101420 
80101430 
80101440 
80101450 
80101460 
80101470 
80101480 
80101490 
80101500 
80101510 
80101520 
80101530 
80101540 
80101550 
80101560 
80101570 
80101580 
80101590 
80101600 
80101610 
80101620 
80101630 
80101640 
80101650 
80101660 
8C101670 
8C101680 
80101690 
80101700 
80101710 
80101720 
80101730 
80101740 
80101750 
80101760 
80101770 
80101780 
80101790 
80101800 
80101810 
8C101820 
80101830 
80101840 
80101850 
80101860 
80101870 
80101880 
80101890 
80101900 
80101910 
80101920 
80101930 
801C1940 
80101950 
80101960 
80101970 
80101980 
80101990 
80102000 
80102010 
80102020 
80102030 
80102040 
80102050 
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300C 0E97 
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DC 



DC 



DC 



DC 



DC 



EWT7+1 



ERROR WAIT 7 



THIS IS THE ERROR WAIT IN INTERNAL 
INTERRUPT ROUTINE. THE ACCUMULATOR 
CONTAINS THE INTERNAL INTERRUPT ILSW, 
THE Q-REG CONTAINS THE MEMORY ADDRESS 
AT WHICH THE ERROR OCCURRED. FOR A 
FULL DESCRIPTION OF THIS ROUTINE SEE 
THE INTERNAL ERROR ROUTINE. PRESS 
START TO CONTINUE FROM THIS WAIT. 



EWT8+1 



ERROR WAIT 8 



THIS IS THE HALT ON ERROR WAIT. 
THIS WAIT MAY FOLLOW ANY ERROR 
MESSAGE IF MONITOR FUNCTION 00 
SWITCH 14 IS ON. PRESS START TO 
CONTINUE FROM THIS WAIT. 



EWT9+1 



ERROR WAIT 9 



THE MONITOR ENTERS THIS WAIT TO WAIT 
FOR AN EXPECTED INTERRUPT FROM THE 
MONITOR LOG DEVICE. THE MONITOR 
WILL REMAIN IN THIS WAIT IF THE 
INTERRUPT FAILS TO OCCUR. POSSIBLE 
CAUSES CF FAILURE ARE WRONG AREA 
CODE FOR LOG DEVICE SPECIFIED IN 
SYSTEM EDIT (MONITOR EDIT CARD ED02), 
WRONG DDEF SPECIFIED FOR LOG DEVICE 
IN MONITOR EDIT CARD EDOO, LOG DEVICE 
FAILURE. 



EWTA+1 



ERROR WAIT A 



THE MONITOR LOG DEVICE IS NOT READY. 
MAKE DEVICE READY AND PRESS START. 



EWTB+1 

THIS WA 
IS MADE 
DECK AF 
IN MONI 
PROGRAM 
READER 
EXECUTE 
NO ENGL 
MESSAGE 



EWTC+1 



ERROR WAIT B 

IT IS ENTERED IF AT ATTEMPT 

TO LOAD THE ENGLISH MESSAGE 
TER THE ENGLISH DECK LOADER 
TOR HAS BEEN OVERLAID BY TEST 
S. CLEAR ALL CARDS FROM THE 
AND PRESS CONSOLE START TO 

THE PROGRAMS IN CORE. 
ISH WILL BE PRINTED FOR ANY 
S INCLUDING MONITOR MESSAGES. 



ERROR WAIT C 



ONE OF THE FOLLCWING ERRORS WAS 
DETECTED DURING LOADING OF THE 
ENGLISH MESSAGE DECK. 

1. CARDS NOT IN CORRECT SEQUENCE 

2. CHECK SUM ERROR 

3. ERROR BIT ON IN 1442 DSW 

4. ONE OR MORE CARDS MISSING FROM 
THE ENGLISH MESSAGE DECK. 

5. ENGLISH DECK IS NOT THE LAST DECK 



80102060 
80102070 
80102080 
80102090 
80102100 
80102110 
80102120 
80102130 
80102140 
80102150 
80102160 
80102170 
80102180 
80102190 
80102200 
80102210 
80102220 
80102230 
80102240 
80102250 
80102260 
80102270 
80102280 
80102290 
80102300 
80102310 
80102320 
80102330 
80102340 
80102350 
80102360 
80102370 
80102380 
80102390 
80102400 
80102410 
80102420 
80102430 
80102440 
80102450 
80102460 
80102470 
80102480 
80102490 
80102500 
80102510 
80102520 
80102530 
80102540 
80102550 
80102560 
80102570 
80102580 
80102590 
80102600 
80102610 
80102620 
80102630 
80102640 
80102650 
80102660 
80102670 
80102680 
80102690 
80102700 
80102710 
80102720 
80102730 
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B I 

300D 08D5 
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300E 0807 



B I 
3 OOF 08DB 



B I 
3010 0811 
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* 

* 

* 

* 
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* 

* 
* 
* 

* 

* 

* 
* 
* 

* 



IN THE 1442 HOPPER. 

RECOVERY IS POSSIBLE FROM THE FIRST 
FOUR ERROR CONDITIONS BY THE 
FOLLOWING PROCEDURE. 

1. NPRO 1442 

2. PLACE THE LAST TWO ENGLISH CARDS 
READ AND ALL REMAINING UNREAD 
CARDS IN CORRECT SEQUENCE IN THE 
1442 HOPPER. 

3. PRESS START ON 1442 

4. PRESS START ON CONSOLE. UP TO 
THREE DEPRESSIONS OF START MAY BE 
REQUIRED. 

IF THE ENGLISH DECK WAS NOT THE LAST 
DECK IN THE 1442 HOPPER, THE PROGRAMS 
THAT HAVE BEEN LOADED MAY BE EXECUTED 
BY THE FOLLOWING PROCEDURE. 

1. NPRO 1442 

2. PLACE TWO BLANK CARDS IN HOPPER 

3. PRESS START ON 1442 

4. PRESS START ON CONSOLE 



ERROR TRAP DESCRIPTION SECTION 

EACH ERROR TRAP WAIT IS FOLLOWED BY AN MDX 
INSTRUCTION TO BRANCH BACK TO THE WAIT. THIS 
PREVENTS THE WAIT FROM BEING EXITED BY SUBSEQUENT 
INTERRUPTS OR DEPRESSION OF THE START KEY. TO 
RECOVER FROM AN ERROR TRAP WAIT A RESTART 
PROCEDURE (RESET AND START) IS NECCESSARY AND IN 
MANY CASES THE PROGRAMS MUST BE RE-LOADED. 



DC 



TRPOD+l 



ERROR TRAP OD 



**M0NITOR EDIT ERROR** 
SEQUENCE NUMBER (EDOO, ED01, ETC.) IS 
INCORRECT ON LAST CARD READ OR CARDS 
ARE OUT OF SEQUENCE. 



DC 



TRPOE+l 



ERROR TRAP OE 



♦♦MONITOR EDIT ERRORS* 
PID ENTRY (E0100) IS NOT CORRECT ON 
LAST MONITOR EDIT CARD READ. 



DC 



TRPOF+l 



ERROR TRAP OF 



♦♦MONITOR EDIT ERROR** 
ONE OF THE FIRST THREE MONITOR EDIT 
CARDS IS AN END OF EDIT CARD. 



DC 



TRP10+1 



ERROR TRAP 10 



♦♦MONITOR EOIT ERROR" 
THE NUMBER OF EDIT ENTRIES SPECIFIED 
IN COLUMNS 12-15 OF THE LAST EDIT 
CARD READ WAS INCORRECT. THIS ENTRY 
SHOULD BE BETWEEN 0001 AND OOOC 



8C102740 
80102750 
80102760 
80102770 
80102780 
80102790 
8C102800 
80102810 
80102820 
80102830 
80102840 
80102850 
80102860 
80102870 
80102880 
80102890 
80102900 
80102910 
80102920 
80102930 
80102940 
80102950 
80102960 
80102970 
80102980 
80102990 
80103000 
80103010 
80103020 
80103030 
80103040 
80103050 
80103060 
80103070 
80103080 
80103090 
80103100 
80103110 
80103120 
80103130 
80103140 
80103150 
80103160 
80103170 
80103180 
80103190 
80103200 
80103210 
8C103220 
80103230 
80103240 
80103250 
80103260 
80103270 
80103280 
80103290 
80103300 
80103310 
80103320 
80103330 
80103340 
80103350 
80103360 
80103370 
80103380 
80103390 
80103400 
80103410 



B 
3011 



I 
0827 



B I 
3012 082E 



B I 
3013 083C 



B I 
3014 0847 



B I 
3015 0851 



DC 



B I 
3016 0877 



B 
3017 



I 
C87C 



B I 

3018 08B3 
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* 

* 
* 
* 
* 
* 
* 
* 



DC 



DC 



DC 



DC 



DC 



DC 



TRP11+1 



ERROR TRAP 11 



♦♦MONITOR EDIT CARD EDOO ERROR" 
THE NUMBER OF EDIT ENTRIES SPECIFIED 
ON THE FIRST MONITOR EDIT CARD IS 
INCORRECT. THIS CARD SHOULD HAVE 
TWO ENTRIES. 



TRP12+1 



ERROR TRAP 12 



♦♦MONITOR EDIT CARD EDOO ERROR" 
THE DDEF ENTRY FOR CONSOLE INTERRUPT 
IS INCORRECT. EITHER AN INVALID 
INTERRUPT LEVEL IS SPECIFIED OR THE 
CHANNEL NUMBER IS OTHER THAN F. 



TRP13+1 



ERROR TRAP 13 



"MONITOR EDIT CARD EDOO ERROR** 
THE DDEF ENTRY FOR THE MONITOR LOG 
DEVICE IS INCORRECT. AN INVALID 
INTERRUPT LEVEL IS SPECIFIED. 



TRP14+1 



ERROR TRAP 14 



"MONITOR EDIT CARD ED01 ERROR" 
AN INVALID INTERRUPT LEVEL IS 
SPECIFIED IN THE SECOND MONITOR 
EDIT CARD. VALID VALUES ARE 
HEX 0000 TO 0017. 



TRP15+1 



ERROR TRAP 15 



"MONITOR EDIT CARD ED01 ERROR** 
THE SAME INTERRUPT LEVEL IS SPECIFIED 
MORE THAN ONCE ON THE SECOND MONITOR 
EDIT CARD. BLANK EDIT ENTRIES (NO 
PUNCHES) ARE INTERPRETED AS LEVEL 
IF INCLUOED IN THE EDIT ENTRY COUNT 
PUNCHED IN COLUMNS 12-15. 



TRP16+1 



ERROR TRAP 16 



"MONITOR EDIT CARD ED01 ERROR** 
THE INTERRUPT LEVEL FOR CONSOLE 
INTERRUPT IS NOT SPECIFIED ON THE 
SECOND MONITOR EDIT CARD. THIS ERROR 
MAY BE CAUSED BY AN INCORRECT DDEF 
ENTRY IN MONITOR EDIT CARD EDOO 



TRP17+1 



ERROR TRAP 17 



"MONITOR EDIT CARD ED01 ERROR" 
THE INTERRUPT LEVEL FOR THE MONITOR 
LOG DEVICE IS NOT SPECIFIED IN THE 
SECOND MONITOR EDIT CARD. THIS ERROR 
MAY BE CAUSED BY AN INCORRECT DDEF 
ENTRY IN MONITOR EDIT CARD EDOO 



DC 



TRP18+1 



ERROR TRAP 18 



80103420 

80103430 

80103440 

80103450 

80103460 

80103470 

80103480 

80103490 

80103500 

80103510 

80103520 

80103530 

80103540 

80103550 

80103560 

80103570 

80103580 

80103590 

80103600 

80103610 

80103620 

80103630 

80103640 

80103650 

80103660 

80103670 

80103680 

80103690 

80103700 

80103710 

80103720 

80103730 

80103740 

80103750 

80103760 

80103770 

80103780 

80103790 

80103800 

80103810 

80103820 

80103830 

80103840 

80103850 

80103860 

80103870 

80103880 

80103890 

80103900 

80103910 

80103920 

80103930 

80103940 

80103950 

80103960 

80103970 

80103980 

80103990 

80104000 

80104010 

80104020 

80104030 

80104040 

80104050 

80104060 

80104070 

80104080 

80104090 



DATE 
EC NO. 



28FE666 

415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 
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B I 
3019 089B 



B 
301A 



I 

0000 



B I 
301B 08AA 



B I 
301C 08E0 



B I 
301D 08E5 



B I 

301E 044C 



B I 
301F 046E 



B 
3020 



I 
045E 



DC 



DC 



DC 



DC 



DC 



DC 



DC 



DC 



♦♦MONITOR SYSTEM EDIT ERROR** 
THE LAST EDIT CARD READ HAS AN ODD 
NUMBER OF ENTRIES. 



TRP19+1 



ERROR TRAP 19 



♦♦MONITOR SYSTEM EDIT ERROR** 
AN INVALID INTERRUPT LEVEL IS 
SPECIFIED ON THE LAST EDIT CARD READ. 
VALID VALUES ARE HEX 00 TO 17. 



ERROR TRAP 1A NOT USED 



TRP1B+1 



ERROR TRAP IB 



♦♦MONITOR SYSTEM EDIT ERROR** 
TWO DDEF ENTRIES IN THE MONITOR 
SYSTEM EDIT CARDS HAVE THE SAME 
INTERRUPT LEVEL AND ILSW BIT 
SPECIFIED. IF TWO DEVICES SHARE BOTH 
INTERRUPT LEVEL AND ILSW BIT, USE 
ALTERNATE EDIT CARDS AND RUN THESE 
DEVICES IN SEPARATE CORE LOADS. 



TRP1C+1 



ERROR TRAP 1C 



♦♦MONITOR SYSTEM EDIT ERROR** 
THE DDEF FOR CONSOLE INTERRUPT AS 
DEFINED IN MONITOR EDIT CARD EDOO, 
IS NOT ENTERED IN THE MONITOR 
SYSTEM EDIT CARDS. 



TRP1D+1 



ERROR TRAP ID 



♦♦MONITOR SYSTEM EDIT ERROR** 
THE DDEF FOR THE MONITOR LOG DEVICE 
AS DEFINED IN MONITOR EDIT CARD EDOO, 
IS NOT ENTERED IN THE MONITOR SYSTEM 
EDIT CARDS. 



TRP1E + 1 



ERROR TRAP IE 



•♦PROGRAM EDIT ERROR** 
THE PID ENTRY ON THE LAST EDIT CARD 
READ DOES NOT MATCH THE PID OF THE 
PROGRAM THAT WAS LOADED. 



TRP1F+1 



ERROR TRAP IF 



♦♦PROGRAM EDIT ERROR** 
SEQUENCE NUMBER (EDOO, E001, ETC.) IS 
INCORRECT ON LAST CARD READ OR CARDS 
ARE OUT OF SEQUENCE. 



TRP20+1 



ERROR TRAP 20 



♦♦PROGRAM EOIT ERROR** 
THE NUMBER OF EDIT ENTRIES SPECIFIED 



80104100 
80104110 
80104120 
80104130 
80104140 
80104150 
80104160 
80104170 
80104180 
80104190 
80104200 
80104210 
80104220 
80104230 
80104240 
80104250 
80104260 
80104270 
80104280 
80104290 
80104300 
80104310 
80104320 
80104330 
80104340 
80104350 
80104360 
80104370 
80104380 
80104390 
80104400 
80104410 
80104420 
80104430 
80104440 
80104450 
80104460 
8C104470 
80104480 
80104490 
80104500 
80104510 
80104520 
80104530 
80104540 
80104550 
80104560 
80104570 
80104580 
80104590 
80104600 
80104610 
80104620 
80104630 
80104640 
8C104650 
80104660 
80104670 
80104680 
80104690 
80104700 
80104710 
80104720 
80104730 
80104740 
80104750 
80104760 
80104770 



B 
3021 



I 

0409 



B I 
3022 0995 



B I 
3023 0380 



B 
3024 



0604 



K 



B I 
3025 0000 



♦ 

* 

♦ 
* 
* 

* 

* 
* 

♦ 
* 

* 

* 
♦ 
* 

* 
* 
* 
* 
♦ 
* 
* 
* 
♦ 
* 
♦ 

* 
* 

* 
* 
* 

* 
* 
♦ 
* 
♦ 
* 
* 

* 
* 

♦ 
♦ 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 



DC 



DC 



DC 



DC 



IN COLUMNS 12-15 OF THE LAST EDIT 
CARD READ WAS INCORRECT. THIS ENTRY 
SHOULD BE BETWEEN 0001 AND OOOC 



TRP21+1 



ERROR TRAP 21 



♦ ♦PROGRAM EDIT ERRORS 
THE PROGRAM WHOSE PID IS IN THE 
ACCUMULATOR WAS NOT EDITED PROPERLY. 
THERE WAS NO END OF EDIT CARD OR 
POSSIBLY NO EDIT CARDS AT ALL 
FOLLOWING THAT PROGRAM. 



TRP22+1 



ERROR TRAP 22 



♦♦MONITOR EDIT ROUTINE ERROR* 
THE MONITOR EDIT ROUTINE CALLED ON 
EITHER THE LOG ROUTINE OR THE REQUEST 
DEVICE ROUTINE AND RECEIVED A BUSY 
RETURN. THIS CONDITION SHOULD BE 
IMPOSSIBLE SINCE THE MONITOR IS THE 
ONLY PROGRAM IN CORE AT THIS TIME. 
CHECK ALL MONITOR EDIT CARDS. 



TRP23+1 



ERROR TRAP 23 



**MONITOR INITIALIZATION ERROR** 
THE MONITOR INITIALIZATION ROUTINE 
CALLED ON THE LOG ROUTINE ANO 
RECEIVED A BUSY RETURN. THIS 
CONDITION SHOULD BE IMPOSSIBLE 
SINCE THE MONITOR IS THE ONLY 
PROGRAM EXECUTING AT THIS TIME. 
PRESS RESET AND START TO ATTEMPT 
RECOVERY. 



TRP24+1 



ERROR TRAP 24 



DC 



**REQUEST/RELEASE DEVICE ERROR** 
THE PROGRAM WHOSE PID APPEARS IN THE 
ACCUMULATOR CALLED ON EITHER THE 
REQUEST DEVICE ROUTINE OR THE 
RELEASE DEVICE ROUTINE WITH AN 
INCORRECT DDEF ENTRY IN THE REQUEST/ 
RELEASE DEVICE CALL. PROBABLE 
CAUSE — AN EDIT ERROR. 

1. CHECK THE PROGRAM EDIT CARDS FOR 
AN INCORRECT OR MISSING DDEF ENTRY 

2. CHECK TO SEE IF THIS DEVICE HAS 
BEEN SPECIFIED IN THE MONITOR 
SYSTEM EDIT CARDS. THE DDEF ENTRY 
IN THE SYSTEM EDIT MUST BE EXACTLY 
THE SAME AS THE DDEF ENTRY IN THE 
PROGRAM EDIT CARDS. 

3. CHECK TO SEE IF THE INTERRUPT 
LEVEL FOR THIS DEVICE IS SPECIFIED 
IN MONITOR EDIT CARD ED01. 



ERROR TRAP 25 NOT USED 



80104780 
80104790 
80104800 
80104810 
80104820 
80104830 
80104840 
80104850 
80104860 
80104870 
80104880 
80104890 
80104900 
80104910 
80104920 
80104930 
80104940 
80104950 
80104960 
80104970 
80104980 
80104990 
80105000 
80105010 
80105020 
80105030 
80105040 
80105050 
80105060 
80105070 
80105080 
80105090 
80105100 
80105110 
80105120 
80105130 
80105140 
80105150 
80105160 
80105170 
80105180 
80105190 
80105200 
80105210 
80105220 
80105230 
80105240 
80105250 
80105260 
80105270 
80105280 
80105290 
80105300 
80105310 
80105320 
80105330 
80105340 
80105350 
80105360 
80105370 
80105380 
80105390 
80105400 
80105410 
80105420 
80105430 
80105440 
80105450 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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8 I 
3026 04A8 



DC 



TRP26+1 



ERROR TRAP 26 



B I 
302 7 02 DC 



DC 



B I 
3028 02DF 



DC 



**CE INTERRUPT TO MAINLINE** 
THE CUSTOMER ENGINEER INTERRUPT LEVEL 
CAME ON AND THE INTERRUPT SWITCH IS 
SET TO INTERRUPT TO MAINLINE. CORE 
LOCATION /OOOA CONTAINS THE RETURN 
ADDRESS. TO RESTART THE MONITOR 
PRESS RESET AND START. 

NOTE. .THIS TRAP MAY OCCUR IF THE 
PROGRAM IS RESTARTED FROM A NON-RESET 
CONDITION. EXECUTION OF THE CPU 
FUNCTION TEST MAY BE IN ORDER. 



TRP27+1 



ERROR TRAP 27 



♦♦INTERRUPT ERROR** 
EITHER A BLANK ILSH WAS SENSED (NO 
BITS ON) OR THE HIGH ORDER BIT (LEFT) 
IN THE ILSW CANNOT BE RESET BY THE 
INTERRUPT ERROR RTN. THE ACCUMULATOR 
CONTAINS THE ILSW WHICH WAS SENSED. 
THE HIGHEST PRIORITY INTERRUPT WHOSE 
LIGHT IS ON IS THE LEVEL IN WHICH 
THE ERROR OCCURED. 



TRP28+1 



ERROR TRAP 28 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
+ 
* 
* 
* 
* 

* 

* 

* 

* 

*************************************************** 

*************************************************** 

* MONITOR/LOADER INTERFACE 
*************************************************** 
*************************************************** 

* THIS TABLE EQUATES COMMON LA8LES USED BY BOTH 

* THE MONITOR AND THE LOADERS. THE LOADERS 

* TRANSFER CONTROL TO THE MONITOR VIA THE TRANSFER 

* VECTORS MLCD AND MECD. 
* 

ORG /0122 

LOG RTN STORAGE AREA 
tCADER START 
RELOCATION BASE ADDRESS 
MONITOR PID 

LAST PROGRAM XFER VECTOR 
EDIT CARD XFER VECTOR 
NEXT AVAILABLE LOCATION 
CORE SIZE 
RELOCATION FACTOR 

* 

* 

*************************************************** 

*************************************************** 

* TRANSFER VECTOR 
*************************************************** 



♦ ♦INTERRUPT ERRORS 
AN INTERRUPT OCCURED ON A LEVEL 
WHICH WAS NOT SPECIFIED ON MONITOR 
EDIT CARD ED01. THIS LEVEL SHOULD 
NOT HAVE BEEN UNMASKED. THE HIGHEST 
PRIORITY INTERRUPT WHOSE LIGHT IS ON 
IS THE LEVEL IN WHICH THE ERROR 
OCCURED. 



0122 






ORG 


/0122 


0023 




LOWC 


EQU 


/0023 


0050 




LDR 


EOU 


/0050 


006F 




RLBA 


EQU 


/006F 


0122 


0100 




DC 


/0100 


0123 


0489 


MLCD 


DC 


LSCD 


0124 


0446 


MECD 


OC 


EDCD 


0125 




NLOC 


ECU 


/0125 


0126 




ULIM 


EQU 


/0126 


0127 




UPPER 


EQU 


/0127 



80105460 
80105470 
80105480 
80105490 
801C5500 
80105510 
80105520 
80105530 
80105540 
80105550 
80105560 
80105570 
8C1C5580 
80105590 
80105600 
80105610 
80105620 
80105630 
8C105640 
80105650 
80105660 
80105670 
80105680 
801C5690 
80105700 
80105710 
80105720 
80105730 
80105740 
80105750 
80105760 
80105770 
80105780 
80105790 
80105800 
80105810 
80105820 
80105830 
80105840 
80105850 
80105860 
80105870 
80105880 
80105890 
80105900 
80105910 
80105920 
80105930 
80105940 
80105950 
80105960 
80105970 
80105980 
80105990 
80106000 
80106010 
80106020 
80106030 
80106040 
80106050 
80106060 
80106070 
80106080 
8 0106090 
80106100 
80106110 
80106120 
8C106130 



*************************************************** 



012C 






012C 





03FD 


012D 





04E7 


012E 





05 9C 


012F 





0685 


0130 





0650 


0131 





05CB 


0132 





0646 


0133 


c 


0000 


0134 





032E 



IT IS THE FUNCTION OF THE TRANSFER 
VECTOR TO DIRECT A USER PROGRAM CALL 
TO THE CORRECT REQUIRED ROUTINE. 
EACH WORD IN THE TRANSFER VECTOR 
CONTAINS THE AODRESS OF THE REQUIRED 
ROUTINE. THE USER WILL THEN 
BRANCH INDIRECTLY VIA THE ROUTINE 
NAME IN THE TRANSFER VECTOR. 



ORG 300 

BEGIN DC BGIN 

START DC MXEQ4 

END DC MEND 

LOG DC LG 

ERROR DC ERRT 

REQDV DC RQDV 

RELDV DC RLDV 

CRCK DC ♦-♦ 

MAT DC MATOO 
* 

*************************************************** 
*************************************************** 

* ENGLISH MESSAGE DECK INTERFACE 
*************************************************** 
*************************************************** 

♦ THIS SECTION PROVIDES THE INTERFACE BETWEEN THE 
ENGLISH MESSAGE DECK AND THE ENGLISH DECK LOADER 
SECTION OF MONITOR. 



MONITOR BEGIN ROUTINE 
CONTROL RTN, POLLING 
MONITOR END ROUTINE 
LOG ROUTINE 
ERROR LOG ROUTINE 
REQUEST DEVICE ROUTINE 
RELEASE DEVICE ROUTINE 
INTERNAL INTRP EXPECTEO SW 
DM MAT TBL ADDR 



THE FIRST THREE CARDS OF THE ENGLISH MSG DECK 
CONTAIN A SHORT PROGRAM WHICH IS LOADED INTO 
CORE BY THE RELOCATING LOADER. THIS PROGRAM 
CHECKS THE TRANSFER VECTOR ENGLD. 

IF THE XFER VECTOR CONTAINS AN ADDRESS, THE ENG 
DECK XFERS VIA THE VECTOR TO THE ENGLISH DECK 
LOADER SECTION OF MONITOR. THE ENGLISH DECK 
LOADER THEN LOADS THE ENGLISH MESSAGES. 

IF THE VECTOR IS ZERO THE ENGLISH DECK LOADER 
SECTION HAS BEEN OVERLAID BY TEST PROGRAMS. THE 
ENGLISH MSG DECK WILL THEN TRANSFER TO THIS 
INTERFACE SECTION TO PRINT AN ERROR MSG AND WAIT. 

THE CONTENT OF THE SHORT PROGRAM CONTAINED IN THE 
ENGLISH MSG DECK IS SHOWN BELOW AS COMMENTS. 



RLBA 



ORG 
EQU 



ENGLD EQU 



DECK 



LD 
BSI 



STX 
BSC 



END 



*+/07FF 

/006F 

/0135 

ENGLD 
ENGLD, Z 

RLBA+1 
ENGLD+1 



GO TO ENG DECK LOADER IF 
* LOADER IS STILL IN CORE 



SET LAST CARD INDICATOR 
GO TC ERR WAIT IN MONITOR 



DECK 



0135 





FDC7 




ENGLD DC 
* 

BSI 




LDENG 


0136 





4400 


033C 


L 


MSI 


0138 





E005 




E005 DC 

* 




/E005 



*************************************************** 

* ENGLISH MESSAGE DECK INTERFACE 

* 

)00 TRANSFER VECTOR 



PRINT E005 MSG 



80106140 
80106150 
80106160 
80106170 
80106180 
80106190 
80106200 
80106210 
80106220 
80106230 
80106240 
80106250 
80106260 
80106270 
80106280 
80106290 
80106300 
80106310 
80106320 
80106330 
8C106340 
80106350 
80106360 
80106370 
80106380 
80106390 
80106400 
80106410 
80106420 
80106430 
80106440 
80106450 
80106460 
80106470 
80106480 
80106490 
80106500 
80106510 
80106520 
80106530 
80106540 
80106550 
80106560 
80106570 
80106580 
80106590 
80106600 
80106610 
80106620 
80106630 
80106640 
80106650 
80106660 
80106670 
80106680 
80106690 
80106700 
80106710 
80106720 
80106730 
80106740 
80106750 
80106760 
80106770 
80106780 
80106790 
80106800 
80106810 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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0139 300B 



013A 4C80 0123 



013C 0000 



WAIT 



/B 



BSC I MLCD 



ERROR WAIT B 

* ERR LOADING ENG DECK 

GO TO EXECUTE PROGRAMS 



013C 2000 
013D 4C40 0000 

013F 4400 0285 

0141 0000 

0142 0000 



EWTB 

* 
* 

* 

* 

BSS E 

********************************************** 
*************** ******************************* 

* INTERRUPT LEVEL ROUTINES 

********************************************** 
********************************************** 
* 

THE FOLLOWING 12 ROUTINES CORRESPOND TO EACH OF 
THE 12 POSSIBLE EDITED LEVELS. EACH ROUTINE 
IS ASSIGNEO TO A SPECIFIC LEVEL CORRESPONDING TO 
THE INTERRUPT ORDER SELECTED BY THE OPERATOR 
ON EDIT CARD ED01. THE FIRST ROUTINE BEING 
EQUIVALENT TO THE FIRST LEVEL SPECIFIED, THE 
SECOND THE SECONO, ETC. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 
* 
* 

ILA 

* 



ENTRY INTO THE ROUTINE IS VIA THE INTERRUPT 
XFER VECTOR INTO THE ADDRS PORTION OF THE BOSC 
INSTRUCTION. THE ROUTINE THEN DOES A BSI TO 
THE COMMON INTERRUPT ROUTINE TAKING WITH IT THE 
ADDRESS OF THE CORRESPONDING INTERRUPT LEVEL 
TABLE. 

EXIT OUT OF INTERRUPT IS VIA THESE ROUTINES 
AFTER RETURNING FROM THE COMMON INTERRUPT 
ROUTINE. THE ROUTINES RESTORE STATUS 
AND BRANCH OUT OF INTERRUPT. 

THE INTERRUPT LEVEL TABLE IN EACH ROUTINE 
CONSISTS OF 21 WORDS. THE FIRST WORD IS 
FOR STORAGE. THE SECOND WORD INDICATES WHICH 
OF THE 16 POSSIBLE DEVICES EDITED INTO THE 
TABLE HAVE BEEN REQUESTED BY USER PROGRAMS. 
THE FOLLOWING 16 WORDS CORRESPOND TO THE 16 
BITS OF THE ILSW. THE REMAINING 3 WORDS ARE 
USED FOR STORAGE. 

THE 16 WORDS FOR THE ILSW MAY CONTAIN ONE 
OF 3 POSSIBILITIES . 

1) BLANK — THE BIT IS NOT USED BY ANY 
EDITED DEVICE. 

2) AREA CODE 6 MODIFIER — THE BIT IS 
ASSIGNED TO A DEVICE THAT HAS NOT 
BEEN REQUESTED BY ANY USER PROGRAM. 

3) TRANSFER AODRESS — THE DEVICE HAS BEEN 
REQUESTED BY A USER PROGRAM. 



INTERRUPT LEVEL ROUTINE FOR THE 1ST ENTRY 
ON MONITOR EDIT CARD ED01. 



LOS 

BOSC 



BSI 



DC 



DC 



00 
*-* 



ILRC 



RESTORE STATUS 

BRANCH OUT OF INTERRUPT 

GO TO COMMON INT RTN 

SAVE XR3 

DEVICE REQUESTED IND 



80106820 
80106830 
80106840 
80106850 
8C106860 
80106870 
80106880 
80106890 
80106900 
80106910 
80106920 
80106930 
80106940 
80106950 
80106960 
80106970 
80106980 
80106990 
80107000 
80107010 
80107020 
80107030 
80107040 
80107050 
80107060 
80107070 
80107080 
80107090 
80107100 
80107110 
80107120 
80107130 
80107140 
80107150 
80107160 
80107170 
80107180 
80107190 
80107200 
80107210 
80107220 
80107230 
80107240 
80107250 
80107260 
80107270 
80107280 
80107290 
80107300 
80107310 
80107320 
80107330 
80107340 
80107350 
80107360 
80107370 
80107380 
80107390 
80107400 
80107410 
80107420 
80107430 
80107440 
80107450 
80107460 
80107470 
80107480 
80107490 



0143 0000 

0144 0000 

0145 0000 

0146 0000 

0147 0000 

0148 0000 

0149 0000 
014A 0000 

014B 0000 
014C 0000 
014D 0000 
014E 0000 

014F 0000 

0150 0000 

0151 0000 

0152 0000 

0153 0000 

0154 0000 

0155 0000 



0156 2000 

0157 4C40 0000 

0159 4400 0285 

015B 0000 

015C 0000 

015D 0000 
015E 0000 
015F 0000 

0160 0000 

0161 0000 

0162 0000 

0163 0000 

0164 0000 

0165 0000 
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80110810 


* 














80110820 


ILT09 


DC 




/oooo 


ILSW BIT 15 






80110830 




DC 




/oooo 


14 






80110840 




DC 




/oooo 


13 






80110850 




DC 




/oooo 


12 






80110860 


* 














8C110870 




DC 




/oooo 


11 






8C110880 




DC 




/oooo 


10 






80110890 



DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


8 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
8A 



(11(11111 I I I 1 I I 



111 I I I I I 



III) (III 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 
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9 
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0233 0000 

0234 0000 

0235 0000 

0236 0000 

0237 0000 

0238 0000 

0239 0000 
023A 0000 
023B 0000 
023C C 0000 

023D 0000 
023E 0000 
023F 0000 



0240 2000 

0241 4C40 0000 

0243 4400 0285 

0245 0000 

0246 0000 

0247 0000 

0248 0000 

0249 0000 
024A 0000 

024B 0000 
024C 0000 
024D 0000 
024E 0000 

024F 0000 

0250 0000 

0251 0000 

0252 0000 

0253 0000 

0254 0000 

0255 OOOO 

0256 0000 

0257 0000 

0258 0000 

0259 0000 



025A 2000 
025B 4C40 0000 

025D 4400 0285 

025F 0000 

0260 0000 

0261 OOCO 





DC 




/OOOO 


9 






80110900 




DC 




/OOOO 


8 






80110910 




DC 




/OOOO 


6 






80110920 




DC 




/OOOO 


5 






80110930 


* 














80110940 




DC 




/OOOO 


7 






80110950 




DC 




/OOOO 


4 






80110960 


* 














80110970 




DC 




/OOOO 


3 






80110980 




DC 




/OOOO 


2 






80110990 




DC 




/OOOO 


1 






80111000 




DC 




/OOOO 









80111010 


* 














80111020 




DC 




*-* 


TEMP STORAGE 






80111030 




DC 




*-* 


SAVE A 






8C111040 




DC 




*-* 


SAVE Q 






80111050 


* 














80111060 

• 80111070 

80111080 


* 


INTERRUPT LEVEL 


ROUTINE FOR THE 


11TH ENTRY 


* 


ON MONITOR EDIT 


CARD ED01. 






80111090 


* 














80111100 




LDS 




00 


RESTORE STATUS 




80111110 


ILK 


BOSC 


L 


*-* 


BRANCH OUT OF 


INTERRUPT 


80111120 


* 














80111130 




BSI 


L 


ILRC 


GO TO COMMON 


INT 


RTN 


80111140 


* 














80111150 




DC 




*-* 


SAVE XR3 






80111160 


* 














80111170 




DC 




*-* 


DEVICE REQUESTED 


IND 


80111180 


* 














80111190 


ILT10 


DC 




/OOCO 


ILSW BIT 15 






80111200 




DC 




/OOOO 


14 






80111210 




DC 




/OOOO 


13 






80111220 




DC 




/OOOO 


12 






80111230 


* 














80111240 




DC 




/OOOO 


11 






80111250 




DC 




/OOOC 


10 






80111260 




DC 




/OOOO 


9 






80111270 




DC 




/OOOO 


8 






80111280 


* 














80111290 




DC 




/OOOO 


7 






80111300 




DC 




/OOOO 


6 






80111310 




DC 




/OOOO 


5 






80111320 




DC 




/OOOO 


<t 






80111330 


* 














80111340 




DC 




/OOOO 


3 






80111350 




DC 




/OOOO 


2 






80111360 




DC 




/OOOO 


1 






80111370 




DC 




/OOOO 









80111380 


* 














80111390 




DC 




*-* 


TEMP STORAGE 






80111400 




DC 




*-* 


SAVE A 






80111410 




DC 




*-* 


SAVE 






80111420 


* 

*— 














80111430 
80111440 
80111450 


* 


INTERRUPT LEVEL 


ROUTINE FOR THE 


121 y 


1 ENTRY 


* 


ON MONITOR EDIT 


CARD ED01. 






80111460 


* 














8C111470 




LDS 




00 


RESTORE STATUS 




80111480 


ILL 


BOSC 


L 


*-* 


BRANCH OUT OF 


INTERRUPT 


80111490 


* 














80111500 




BSI 


L 


ILRC 


GO TO COMMON 


INT 


RTN 


80111510 


* 














80111520 




DC 




*-.* 


SAVE XR3 






80111530 


* 














80111540 




DC 




*-* 


DEVICE REQUESTED 


IND 


80111550 


* 














80111560 


ILT11 


DC 




/OOOO 


ILSW BIT 15 






80111570 



0262 OOOO 

0263 C OOOO 

0264 OOOO 

0265 OOOO 

0266 OOOO 

0267 OOOO 

0268 OOOO 

0269 OOOO 
026A OOOO 
026B OOOO 
026C OOOO 

026D OOOO 
026E OOOO 
026F OOOO 

0270 OOOO 

0271 OOOO 

0272 OOOO 

0273 OOOO 





DC 


/OOOO 






14 




DC 


/OOOO 






13 




DC 


/OOOO 






12 


* 














DC 


/OOOO 






11 




DC 


/OOOO 






10 




DC 


/OOOO 






9 




DC 


/OOOO 






8 


* 














DC 


/OOOO 






7 




DC 


/OOOO 






6 




DC 


/OOOO 






5 




DC 


/OOOO 






4 


* 














DC 


/OOOO 






3 




DC 


/OOOO 






2 




DC 


/OOOO 






1 


* 


DC 


/OOOO 











DC 


*-* 


TEMP 


STORAGE 




DC 


*-* 


SAVE 


A 






DC 


*-* 


SAVE 


Q 




* 












* 













0274 





OOCO 


MPIDT DC 


0275 





OOOO 


DC 


0276 





OOOO 


DC 


0277 





OOOO 


DC 


0278 





OOOO 


DC 


0279 





OOOO 


DC 


027A 





OOOO 


DC 


027B 





OOOO 


DC 


027C 





OOOO 


DC 


027D 





OOOO 


DC 


027E 


c 


OOOO 


DC 


027F 





OOOO 


DC 


0280 





OOOO 


DC 


0281 





OOOO 


OC 


0282 





OOOO 


DC 


0283 





OOOO 


DC 


0284 





OOOO 


DC 



********************************************** 

********************************************** 

* MONITOR PID TABLE 

********************************************** 

* IF A PROGRAM IS IN CORE STORAGE, ONE WORD IN 

* THIS TABLE WILL CONTAIN THE ADDRESS OF THE 

* PROGRAMS PST. THE MONITOR USES THIS TABLE TO 

* FIND THE LOCATION OF PROGRAMS IN CORE. 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 
* 

************* ********************************* 
************************************* ********* 

* COMMON INTERRUPT ROUTINE 
*********************** *********************** 
***************************** ***************** 

* THIS ROUTINE IS USED BY ALL OF THE UNIQUE 

* INTERRUPT LEVEL ROUTINES SPECIFIED BY EDIT. 

* THE FUNCTIONS PERFORMED BY THIS ROUTINE 

* ARE IN ORDER. 
* 

* 1. DETERMINE THE ADDRS OF THE INT LEVEL RTN. 

* 2. SAVE STATUS IN THE INT LEVEL RTN. 

* 3. SAVE A AND Q IN THE INT LEVEL TABLE. 

* 4. SAVE THE INTERRUPT LEVEL RTN ADDRS. 

* 5. SENSE ILSW 

* 6. GO TO ERROR TRAP 27 IF ILSW IS BLANK. 



80111580 

80111590 

80111600 

80111610 

80111620 

80111630 

80111640 

80111650 

80111660 

80111670 

80111680 

80111690 

80111700 

80111710 

80111720 

80111730 

80111740 

80111750 

80111760 

80111770 

80111780 

80111790 

80111800 

80111810 

80111820 

80111830 

80111840 

80111850 

80111860 

80111870 

80111880 

80111890 

80111900 

80111910 

80111920 

80111930 

80111940 

80111950 

80111960 

80111970 

80111980 

80111990 

80112000 

80112010 

80112020 

80112030 

80112040 

80112050 

80112060 

80112070 

80112080 

80112090 

80112100 

80112110 

80112120 

80112130 

80112140 

80112150 

80112160 

80112170 

80112180 

80112190 

80112200 

80112210 

80112220 

80112230 

80112240 

8C112250 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


9 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 

9A 
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0285 0000 



* 
* 

* 

* 

* 

* 

* 

* 

ILRC 

* 



7. 

8. 



10. 
11. 



IF ILSW IS NOT BLANK FIND ILSW TABLE ENTRY. 

IF ILSW TBL ENTRY DOES NOT CONTAIN A XFER 

ADDRS GO TO INTERRUPT ERROR RTN. 

IF ILSW TBL ENTRY CONTAINS A XFER ADDRS 

GO TO USER INTERRUPT ROUTINE. 

AFTER RETURN FROM USER RESTORE A AND Q. 

RETURN TO INTERRUPT LEVEL ROUTINE. 



0286 
0288 
028A 
028C 
028E 
028F 



OCOO 0308 
OCOO 030A 
6F80 0285 
6780 0285 
2BFB 
DB13 



0290 C012 

0291 D312 

0292 6B10 

0293 0878 

0294 D077 

0295 4C18 02DA 

0297 E301 

0298 4C18 02B2 

029A 6311 
029B 1340 
029C 7780 02A3 

029E 086F 
029F 0870 

02A0 4780 0000 

02A2 6700 0000 
02A4 C312 
02A5 DOFO 
02A6 CB13 

02A7 0860 

02A8 0861 

02A9 6B03 

02AA 73FB 

02AB 6B05 

02AC 6780 0000 
02AE 08 5F 
02AF 0860 

0280 4CC0 0000 



DC 

XIO 
XIC 
STX 
LDX 
STS 
STD 

LD 

STO 

STX 

XIO 

STO 
BSC 

AND 
BSC 

LDX 

SLCA 

MDX 

XIO 
XIO 



L 
L 

13 

13 

3 



/oooo 

MK15 
MK23 
ILRC 
ILRC 

-5 
19 

ILRS361 

18 

ILRS3+1 

ILSW 
ILSW 
ILER1.+- 



MASK ALL LEVELS 

SAVE XR3 

XR3=INT TABLE ADDRS 

SAVE STATUS 

SAVE A AND Q 

SAVE RECURSIVE WORK 

* AREA 

SAVE INT TBL ADDRS 



SENSE ILSW 
SAVE ILSW 
BR IF BLANK 



ILSW 



3 1 



ILER.+- 

17 



ILRS3+1 

UMK15 

UMK23 



BSI 13 



* 
ILRS3 



* 
ILRS4 



LDX 
LD 
STO 
LDD 

XIO 
XIO 
STX 
MDX 
STX 

LDX 
XIO 
XIO 



L3 
3 



3 
3 

3 

13 



*-* 
18 

ILRS3E1 
19 

MK15 

MK23 

ILRS4+1 

-5 

ILRS5+1 

*-* 

UMK15 

UMK23 



CK DEVICE REQUESTED IND 
BR IF NOT REQUESTED 

CALCULATE ADDRESS 

* OF INTERRUPT 

* LEVEL TABLE ENTRY 

UNMASK ALL LEVELS 



XFER TO USER PROGRAM 

XR3=INTRP TABLE ADDRS 
RESTORE RECURSIVE 
*WORK AREA 
RESTORE A AND Q 



MASK ALL LEVELS 



SET UP XR3 RESTORE 

SET UP RETURN ADDR 

RESTORE XR3 
UNMASK ALL LEVELS 



RETURN TO INT LEVEL RTN 



* 

ILRS5 BSC L *-* 

* 

*************************************************** 

*************************************************** 

* INTERRUPT ERROR ROUTINE 
*************************************************** 
************* ******************************** ****** 

* THIS ROUTINE IS ENTERED AT THREE POSSIBLE ENTRY 

* POINTS DEPENDING ON THE ERROR CONDITION DETECTED. 
* 

* LABEL * ENTRY REASON 

* ********************** 

* * 

* ILER * A POPULATED ILSW BIT BUT NOT 



80112260 

80112270 

80112280 

80112290 

80112300 

80112310 

80112320 

80112330 

80112340 

80112350 

80112360 

80112370 

80112380 

80112390 

80112400 

80112410 

80112420 

80112430 

80112440 

80112450 

80112460 

80112470 

80112480 

80112490 

80112500 

80112510 

80112520 

80112530 

80112540 

80112550 

80112560 

80112570 

80112580 

80112590 

80112600 

80112610 

80112620 

80112630 

80112640 

80112650 

80112660 

80112670 

80112680 

80112690 

80112700 

80112710 

80112720 

80112730 

80112740 

80112750 

80112760 

80112770 

80112780 

80112790 

80112800 

8C112810 

80112820 

80112830 

80112840 

80112850 

80112860 

80112870 

80112880 

80112890 

80112900 

80112910 

80112920 

80112930 











* 




* 


REQUESTED. 


. THE MONITOR WILL 


80112940 










* 




* 


ATTEMPT TO RESET THE DEVICE 


80112950 










* 




* 


AND PRINT 


AN E009 MESSAGE. 


80112960 










* 




* 






80112970 










* 


ILER1 


* 


A BLANK ILSW OR THE ILSW BIT 


80112980 










* 




* 


CANNOT BE 


RESET. 


80112990 










* 




* 


SEE ERROR 


TRAP 27 IN THE PROGRAM 


80113000 










* 




* 


HALT DESCRIPTION SECTION. 


80113010 










* 




* 






80113020 










* 


TRP28 


* 


AN INTERRUPT OCCURED ON A LEVEL 


80113030 










* 




* 


NOT SPECIFIED ON MONITOR EDIT ED01. 


80113040 










* 




* 


SEE ERROR 


TRAP 28 IN THE PROGRAM 


80113050 










* 




* 


HALT DESCRIPTION SECTION. 


80113060 










* 










80113070 










* 










80113080 


02B2 





C059 




ILER 


LD 




ILSW 


FETCH ILSW 


80113090 


02B3 





D030 




* 


STO 




ILILS 


SAVE ILSW FOR PRINTOUT 


80113100 
80113110 


02B4 





6311 






LDX 


3 


17 


CALCULATE ADDRESS 


80113120 


02B5 





1340 






SLCA 


3 





OF INTERRUPT LEVEL 


80113130 


02B6 





7780 


02A3 


* 


MDX 


13 


ILRS3+1 


TABLE ENTRY 


80113140 
80113150 


02B8 





C300 






LD 


3 





FETCH TABLE ENTRY 


80113160 


02B9 





E858 






OR 




MI0C5 


BUILD SENSE 


80113170 


02BA 





D058 




* 


STO 




MI0C5E1 


* DEVICE IOCC 


80113180 
80113190 


02BB 





C057 




ILER4 


LD 




MI0C5+1 


FETCH SENSE IOCC 


80113200 


02BC 





D028 




* 


STO 




ILDEV 


SAVE IOCC FOR PRINTOUT 


80113210 
80113220 


02BD 





F04A 






EOR 




MK15 




80113230 


02BE 





1008 






SLA 




8 


CK FOR MODIFIER = /FF 


80113240 


02BF 





4C18 


02DA 


* 


BSC 


L 


ILER1.+- 


BR IF MODIFIER = /FF 


80113250 
80113260 


02C1 





0850 






XIO 




MI0C5 


SENSE DEVICE 


80113270 


02C2 





D023 




* 


STO 




ILOSW 


SAVE DSW FOR PRINTOUT 


80113280 
80113290 


02C3 





7401 


0313 


* 


MDX 


L 


MIOC 5*1,1 


INCRE SNS IOCC BY 1 


80113300 
80113310 


02C5 





0846 






XIO 




ILSW 


SENSE ILSW 


80113320 


02C6 





E045 






AND 




ILSW 


CHECK IF BIT IS RESET 


80113330 


02C7 





4C20 


02BB 


* 


BSC 


L 


ILER4.Z 


BRANCH IF NOT RESET 


80113340 
80113350 


02C9 





6318 






LDX 


3 


24 




80113360 


02CA 





C0D8 




ILER2 


LD 




ILRS3+1 


FETCH INT RTN ADDRS 


80113370 


02CB 





9048 






S 




M0003 


CORRECT VECTOR ADDRS 


80113380 


2CC 





F700 


03E5 




EOR 


L3 


IXFV+3 




80113390 


02CE 





4C18 


02D2 




BSC 


L 


ILER3,+- 


BR IF INT LEVEL FOUND 


80113400 


02D0 





73FF 






MDX 


3 


-1 




80113410 


02D1 





70F8 






MDX 




ILER2 


TRY NEXT INT LEVEL 


80113420 


02D2 





6B10 




ILER3 

* 


STX 


3 


ILID 


SAVE INT LEVEL 


80113430 
80113440 


02D3 





6700 


02EA 




LDX 


L3 


MILER 




80113450 


02D5 





C04A 






LD 




SWO 




80113460 


02D6 


c 


1008 






SLA 




8 




80113470 


02D7 





4810 






BSC 




- 


SKIP IF NO E009 SELECTED 


80113480 


02D8 





6B53 






STX 


3 


MLSCF+5 


SET MONITOR MLSCF ENTRY 


80113490 


02D9 





70C8 




* 


MDX 




ILRS3 


RETURN TO COMN INT RTN 


80113500 
80113510 


02DA 





C031 




ILER1 


LD 




ILSW 


LOAD ILSW 


80113520 


02DB 





3027 




TRP27 


WAIT 




/27 


ERROR TRAP 27 


80113530 


02DC 





70FE 




* 


MDX 




TRP27 


* UNPOPULATED ILSW BIT 


80113540 
80113550 


02DD 





0000 






DC 




*-* 




80113560 


02DE 





3028 




TRP28 


WAIT 




/28 


ERROR TRAP 28 


80113570 


02DF 





70FE 




* 


MDX 




TRP28 


* UNASSIGNED INT LEVEL 


80113580 
80113590 


02E0 





0004 




ILERS 


DC 




/0004 


MSG STRING FOR E009 


80113600 


02E1 





OOCO 






DC 




/OOOO 




80113610 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04NOV66 


03JUL68 


14N0V6' 


PAGE 


10 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
10 A 
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02E2 E009 
02E3 0000 
02E4 0000 
02E5 0000 
02E6 C 0000 



02E7 6700 02E0 
02E9 4001 

02EA 70FC 



02EB 0000 

02EC 6A10 

02ED 6BCA 

02EE C042 
02EF D011 
02F0 C041 
02F1 D012 

02F2 6580 0699 
02F4 6680 069B 

02F6 4400 0685 
02F8 0000 
02F9 02FC 
02FA 0000 

02FB 7004 



E009 DC /E009 

ILID DC /OOOO 

ILILS DC /OOOO 

ILDEV OC /OOOO 

ILDSW DC /OOOO 

* 

* 

* THIS SECTION IS ENTERED VIA THE MONITOR MLSCF 



ENTRY SET IN THE INTERRUPT ERROR ROUTINE. THIS 
SUBROUTINE CALLS ON THE LOG CONTROL ROUTINE TO 
PRINT THE E009 MESSAGE. 



L3 ILERS 
MLCTR 



ERR09 



XR3=ADDRS OF LOG STRING 
GO TO LOG CONTROL 

ENTER FROM POLLING RTN 



* 
* 
* 

ERR09 LDX 
BSI 
* 

MILER MDX 
* 

*************************************************** 
*************************************************** 

* MONITOR LOG CONTROL ROUTINE 
*************************************************** 
*************************************************** 

* THIS ROUTINE PROVIDES THE NECCESSARY CONTROL TO 
ALLOW THE MONITOR TC INTERRUPT A MESSAGE BEING 
PRINTED BY ONE OF THE TEST PROGRAMS. THIS ALLOWS 
IMMEDIATE RESPONSE TO OPERATOR CONTROL. 



THIS ROUTINE IS ENTERED VIA A BSI FROM THE 
INTERRUPT ERROR ROUTINE, THE CONSOLE INTERRUPT 
ROUTINE, AND THE MONITOR FUNCTION 01 ROUTINE. 
XR3 CONTAINS THE ADDRS OF THE LOG STRING TO BE 
PRINTED. 

IF THE LOG ROUTINE IS BUSY THIS ROUTINE WILL 
RESTORE THE MONITOR MLSCF ENTRY TO THE CALLING 
ROUTINE. THIS WILL ALLOW THE CALLING ROUTINE TO 
CONTINUE REPEATING THE CALL UNTIL THE MSG IS 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* PRINTED. 

* 

MLCTR DC 

* 

STX 

* 

STX 

* 

LD 
STO 
LD 
STO 

* 

LDX 
LDX 

* 

LCTR1 BSI 
DC 
DC 
DC 

* 

MDX 



2 LCTR2+1 

3 LCTR1+2 

MAT03 
LCTR3+1 
MAT04 
LCTR4+1 

11 LGSX1+1 

12 LGSX2+1 

L LG 
*-* 
LCTR2 



LCTR3 



SAVE MLSCF ADDRS 



SET LOG STRING ADDRS 



SAVE MAT03 

SAVE MAT04 

RESTORE XR1 
RESTORE XR2 



CALL LOG ROUTINE 
ADDRS OF MSG STRING 
BUSY RETURN ADDRS 



NORMAL RETURN 



02FC 





66 CO 


OOOO 


LCTR2 


LDX 


L2 


*-* 






02FE 





COEC 






LD 




MLCTR 


RESTORE 


MONITOR 


02FF 





D209 




* 
LCTR3 


STO 


2 


9 


* MLSCF 


ENTRY 


0300 





67C0 


OOOO 


LDX 


L3 


*-* 






0302 





6B2E 






STX 


3 


MAT03 


RESTORE 


MAT03 


0303 





6700 


OOOO 


LCTR4 


LDX 


L3 


*-* 







80113620 
80113630 
80113640 
80113650 
80113660 
80113670 
80113680 
80113690 
80113700 
80113710 
80113720 
80113730 
80113740 
80113750 
80113760 
80113770 
80113780 
80113790 
80113800 
80113810 
8C113820 
80113830 
80113840 
80113850 
80113860 
80113870 
80113880 
80113890 
80113900 
80113910 
80113920 
80113930 
80113940 
80113950 
80113960 
80113970 
80113980 
80113990 
80114000 
80114010 
80114020 
80114030 
80114040 
80114050 
80114060 
80114070 
80114080 
80114090 
80114100 
80114110 
80114120 
80114130 
80114140 
80114150 
80114160 
80114170 
80114180 
80114190 
80114200 
80114210 
80114220 
80114230 
80114240 
80114250 
80114260 
80114270 
80114280 
80114290 



0305 6B2C 




STX 


3 MAT04 


0306 4C80 0120 




BSC 


I START 




* 
* 







RESTORE MAT04 

GO TO CONTROL ROUTINE 



0308 




OOOO 


0308 





FFFF 


0309 





0480 


030A 





FFFF 


030B 





0481 


030C 





OOOO 


030D 





03 00 


030E 





OOOO 


030F 





0480 


0310 


c 


OOOO 


0311 





0481 


0312 





0700 


0313 





0700 


0314 





0003 



* MONITOR IOCC WORDS 

* 

BSS E 

MK15 DC /FFFF 

DC /0480 

MK23 DC /FFFF 

DC /0481 

ILSW DC /OOOO 

OC /0300 

UMK15 DC /OOOO 

DC /0480 

UMK23 DC /OOOO 

DC /0481 

MI0C5 DC /0700 

DC /0700 

M0003 DC /0003 
* 

************* ****************************** ******** 
*************************************************** 

* ERROR HALT ROUTINE 

*************************************************** 
*************************************************** 

* THIS ROUTINE IS ENTERED FROM THE ERROR LOG 
ROUTINE IF THE HALT ON ERROR OPTION IS SELECTED. 
THE ROUTINE WILL MASK ALL LEVELS AND HALT AT 
ERROR WAIT 8. WHEN START IS PRESSED A SELECTIVE 

A RETURN TO THE ERROR LOG ROUTINE IS 



MASK 1ST 15 



MASK 2ND 15 



SENSE ILSW 
UNMASK 1ST 15 



UNMASK 2ND 15 



SENSE DEVICE 



0315 OOOO 

0316 08F1 

0317 08F2 

0318 3008 

0319 08F4 
031A 08F5 
031B 4C80 0315 



* 
* 
* 
* 
* 
* 
HALT 



UNMASK AND 
EXECUTED. 



* 
EWT8 

* 



DC 

XIO 

XIO 

WAIT 

XIO 
XIO 
BSC 



I 



*-* 

MK15 

MK23 

/8 

UMK15 
UMK23 
HALT 



MASK ALL LEVELS 



ERROR WAIT 8 



UNMASK ALL LEVELS 



********************************************** 
********************************************** 

* MONITOR PROGRAM STATUS TABLE PST 

********************************************** 

********************************************** 

* 



031D 





0100 


PID 


DC 


/0100 


031E 





0001 


RID 


DC 


/0001 


031F 





03 ID 


RAD 


OC 


PID 


0320 





OOOO 


SWO 


DC 


/OOOO 


0321 





OOOO 


SW1 


DC 


/OOOO 


0322 





OOCO 


SW2 


DC 


/OOOO 


0323 





OOOO 


SW3 


DC 


/OOOO 


0324 





OOCO 


IPA 


DC 


/OOOO 


0325 





OOOO 


LPA 


DC 


/OOOO 


0326 





OOOO 


EPA 


DC 


/OOOO 


0327 





OOOO 


MLSCF 


DC 


*-* 


0328 





OOOO 




DC 


*-* 


0329 





OOOO 




DC 


*-* 


032A 





OOOO 




DC 


*-* 


032 B 





OOOO 




DC 


*-* 


032C 





OOOO 




DC 


*-* 


0320 





FFFF 


TERM 

* 


DC 


/FFFF 



LOG ROUTINE 
MON FUNCTION 01 RTN 
CONSOLE INTERRUPT 
XEQ/DXEQ ALL PROGS 
TERM ADDRS 
INTERRUPT ERROR 



80114300 

80114310 

80114320 

80114330 

80114340 

80114350 

80114360 

80114370 

80114380 

80114390 

80114400 

80114410 

80114420 

80114430 

80114440 

80114450 

80114460 

80114470 

80114480 

80114490 

80114500 

80114510 

80114520 

80114530 

80114540 

80114550 

80114560 

80114570 

80114580 

80114590 

80114600 

80114610. 

80114620 

80114630 

80114640 

80114650 

80114660 

80114670 

80114680 

80114690 

80114700 

80114710 

80114720 

80114730 

80114740 

80114750 

80114760 

80114770 

80114780 

80114790 

80114800 

80114810 

80114820 

80114830 

80114840 

80114850 

80114860 

80114870 

80114880 

80114890 

80114900 

80114910 

80114920 

80114930 

80114940 

80114950 

80114960 

80114970 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NDV66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01 JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


11 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
11A 
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2196354 

12A 



032E 





0000 


032F 





0000 


0330 





0000 


0331 





0000 


0332 





0000 


0333 





0000 


0334 





0000 



0336 0000 

0336 6002 

0337 COOO 

0338 6400 04A5 



033A 0000 
033B 0000 



033C 0000 

033D 61F1 
033E C500 0284 
0340 4C18 034D 

0342 C580 0284 
0344 4C10 034B 

0346 1002 

0347 180A 

0348 4400 04FB 
034A 70F2 

034B 7101 
034C 70F1 

034D 63EC 
034E 1010 



* MAT TABLE 
* 

MATOO DC 
MAT01 DC 
MAT02 DC 
MAT03 DC 
MAT04 DC 
MAT05 DC 
MAT 06 DC 
* 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 



ADRS OF PID IN POLLEO PGM 
ADRS IN MLSCF 
PID OF PGM USING LOG 
ADRS PID PGM USING LOG 
TERMINATION ADDRS 
CCNSCLE INT RTN EUSY 
PID OF PROG BEING EDITED 



MIRS 



BSS 
LDX 
LD 
LDX 



* MONITOR RESTART WORDS 

* 

E 

2 

* 

L MRS 

* 

* 

* MONITOR EDIT FIELDS 
* 

MED DC *-* 
MED1 DC *-* 

* 

********************************************** 

********************************************** 

* MONITOR INITIALIZATION ROUTINE 
********************************************** 
********************************************** 

* THIS ROUTINE IS CALLED FROM NUMEROUS ROUTINES 
IN MONITOR. THE CALLING SEQUENCE FOR THIS 
ROUTINE IS. 



CONSOLE INTERRUPT DDEF 
LOG DEVICE DDEF 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

MSI 

* 



MSI1 



BSI 

DC 



MSI 
XXXX 



PRINT PARAMETER 



THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS. 



1. DE-EXECUTES ALL PROGRAMS 

2. RESETS THE MONITOR PST AND MAT TABLES 

3. SETS IN RESTART BRANCHES 

4. SETS UP INTERRUPT XFER VECTOR ADDRESSES 

5. UNMASKS 

6. IF THE PRINT PARAMETER IN THE CALL CONTAINS 
AN ADDRESS, PRINTS THE MESSAGE AT THAT ADRS. 

7. IF THE PARAMETER CONTAINS A MSG ID WORD (MID) 
PRINTS A MONITOR MSG WITH THAT MID. 

8. IF THE PARAMETER IS ZERO NO MSG IS PRINTED. 



* 
MSI2 



DC 

LDX 

LD 

BSC 

LD 
BSC 

SLA 
SRA 

BSI 
MDX 

MDX 

MDX 

LDX 

SLA 



*-* 

1 -15 
LI MPIDT+16 
L MSI2+2.+- 

II MPIDT+16 
L MSI2 t - 

2 

10 
L MF01 
MSI + l 

1 1 
MSI1 

3 -20 
16 



FETCH PIO TABLE ENTRY 
BR IF END OF PID TABLE 

FETCH PID FROM PROGRAM 
BR IF PROG NOT EXECUTING 



DE-EXECUTE PROGRAM 



80114980 
80114990 
80115000 
80115010 
80115020 
80115030 
80115040 
80115050 
80115060 
80115070 
80115080 
80115090 
80115100 
80115110 
80115120 
80115130 
80115140 
80115150 
80115160 
80115170 
80115180 
80115190 
80115200 
80115210 
80115220 
80115230 
80115240 
80115250 
80115260 
80115270 
80115280 
80115290 
80115300 
80115310 
8C115320 
80115330 
80115340 
80115350 
80115360 
80115370 
80115380 
80115390 
80115400 
80115410 
80115420 
80115430 
80115440 
80115450 
80115460 
80115470 
80115480 
80115490 
80115500 
80115510 
80115520 
80115530 
80115540 
80115550 
80115560 
80115570 
80115580 
80115590 
80115600 
80115610 
80115620 
80115630 
80115640 
80115650 



034F 





D700 


0335 


0351 





7301 




0352 





70FC 




0353 





C02D 




0354 





EOCB 




0355 





DOCA 




0356 





C8DF 




0357 





DBOO 




0358 





C8DF 




0359 


C 


DB02 




035A 





COAD 




035B 





D0D1 




035C 





6700 


031D 


035E 





6BCF 





MSI3 



035F 631B 
0360 C700 03E1 
0362 D7C0 0007 

0364 73FF 

0365 70FA 

0366 08A7 

0367 08 A8 

0368 C480 033C 
036A 4C18 037B 

036C 4C10 0373 



MSI4 



036E 
036F 
0371 
0372 



D0B7 

6500 0324 

6904 

7001 



0373 D002 



0374 
0376 
0377 
0378 



4480 012F 
0000 
037F 
037B 



0379 4C0O 04 AE 



0378 
0370 



037F 
0380 



7401 033C 
4C80 033C 



3023 
70FE 



0381 0020 



STO 
MDX 
MDX 

LD 

AND 

STO 

LDD 

STD 

LDD 

STD 

LD 

STC 

LDX 

STX 

LDX 

LD 

STO 

MDX 
MDX 

XIO 
XIC 
LD 
BSC 



L3 
3 



* 

MSI5 
* 
MSI6 



* 
MSI7 

* 
TRP23 



L3 
3 

3 

L3 

L3 

3 



SWO+21 

1 

MS I 3 

M0020 

SWO 

SWO 

MIRS 



MIRSE2 

2 

MK15 

TERM 

PID 

MATOO 

27 

IXFV-1 

7 

-1 

MSI4 

UMK15 
UMK23 
MSI 
MSI7.+- 



BSC L MSI5,- 



STO 
LDX 
STX 
MDX 

STO 

BSI 
DC 
DC 
DC 

BSC 

MDX 
BSC 

WAIT 

MDX 



LI 

1 



EPA 
I PA 

MSI6+2 
MS16 

MSI6+2 

LCG 
*-* 
TRP23 
MSI7 

MCON 

MSI.l 
MSI 

/23 

TRP23 



CLEAR MCNITOR PST 



RESET FUNCTION OPTIONS 
* EXCEPT BYPASS ENGLISH 

LD MON. RESTART WDS 

LD MON. RESTART INST 

LD FFFF TERMINATOR 

LD PID ADDRESS 

STO IN MON ADR TABLE 



MOVE INTERRUPT TRANSFER 
VECTORS TO CORE 
LOCATIONS /0008 - 70022 



UNMASK ALL LEVELS 

NO PRINT IF MSI CALL 

* PARAMETER IS ZERO 

BR IF PARAMETER POSITIVE 

STORE MID 
STORE LOG 

* STRING ADDRESS 
GO TO PRINT 

STO LOG STRING ADDRESS 

CALL LOG RTN 
ADDRS OF STRING 
BUSY RETURN 
TERM ADDRS 

GO TO CONTROL ROUTINE 



RETURN TO CALLING RTN 



ERROR TRAP 23 



* 

M0020 DC /0020 

* 

********************************************** 

********************************************** 

* MONITOR TERMINATION ADRS RT * MTA * 
********************************************** 
********************************************** 

* THIS ROUTINE IS USED BY THE MONITOR TO RE- 
TURN CONTROL TO THE USER PROGRAM UPON 
COMPLETION OF A LOG MESSAGE . IF NO TERMINA 
TION ADDRESS WAS SPECIFIED IN THE LOG CALL 
CONTROL IS XFER-ED TO THE MONITOR CONTROL 
ROUTINE. 



0382 COAE 

0383 DOAA 



* 
* 
* 
* 
* 
* 
* 
MTA 



LD 
STO 



MAT03 
MATOO 



RESTORE ADDRS OF USER 
* PROG PST IN MATOO 



80115660 
80115670 
80115680 
80115690 
80115700 
80115710 
80115720 
80115730 
80115740 
80115750 
80115760 
80115770 
80115780 
80115790 
80115800 
80115810 
80115820 
80115830 
80115840 
80115850 
80115860 
80115870 
80115880 
80115890 
80115900 
80115910 
80115920 
80115930 
80115940 
80115950 
80115960 
80115970 
80115980 
80115990 
80116000 
80116010 
80116020 
80116030 
80116040 
80116050 
80116060 
80116070 
80116080 
80116090 
80116100 
80116110 
80116120 
80116130 
80116140 
80116150 
80116160 
80116170 
80116180 
80116190 
80116200 
80116210 
80116220 
80116230 
80116240 
80116250 
80116260 
80116270 
80116280 
80116290 
80116300 
80116310 
80116320 
80116330 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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01JUL66 
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13A 



0384 





6580 


C699 


0386 





66 30 


069B 


0388 





C0A9 




0389 





4C98 


012D 


038B 





D0C9 




038C 





6700 


0382 


038E 





6B9C 




038F 





COAO 




0390 





4CA0 


012D 


0392 





D098 




0393 





D09E 




0394 





4C00 


0000 



LDX 


11 


LGSX1+1 


RESTORE XR1 


LDX 


12 


LGSX2+1 


RESTORE XR2 


LD 




MAT04 


MAT 04=0 


BSC 


I 


START, +- 


* YES, RETU 



STO 



MTA1+1 



LDX 


L3 


MTA 




STX 


3 


MLSCF+4 




LO 




MAT02 


GO TO CONTROL ROUT IN 


BSC 


I 


START ,Z 


* IF LOG IS BUSY 


STO 




MLSCF+4 




STO 




MAT04 




BSC 


L 


*-* 


GO TO USER TERM ADDR 



MTA1 

* 

********************************************** 

********************************************** 

* MONITOR CONSOLE INTERRUPT RT 

* *** MNCSL *** 
********************************************** 
********************************************** 

* THIS ROUTINE CONSISTS OF THREE SUB-SECTIONS. 
* 

* MNCSL — THIS SECTION IS ENTERED BY A CONSOLE 

* INTERRUPT. THE SECTION READS THE SENSE/ 

* PROGRAM SWS AND THE DATA ENTRY SWS. THE 

* CONTENT OF THE DE SWS IS THEN PLACED IN 

* THE DESIGNATED PROGRAM AT THE PROPER 

* FUNCTION LEVEL. THIS SECTION THEN SETS 

* A MONITOR MLSCF ENTRY TO MCSL4. 
* 

* MCSL4 — THIS SECTION CALLS ON THE LOG CONTROL RTN 

* TO PRINT THE A003 OR E003 MSG AND THEN 

* SETS A MONITOR MLSCF ENTRY TO MCSL5. 
* 

* MCSL5 — THIS SECTION XFERS TO THE MONITOR FUNCTION 

* 01 RTN IF THE SWITCH ENTRY WAS TO XEQ/DXEQ 

* A PROGRAM. 
* 

INTERRUPT ENTRY 



RESET CONSOLE INTERRUPT 



0396 





0000 




MNCSL 

* 

* 


DC 




*-* 


0397 





0848 




XIO 




MI0C6 


0398 





7400 


0333 




MDX 


L 


MAT05 


039A 





7024 




* 


MDX 




MCSL2 


039B 





6700 


03C9 


LDX 


L3 


MILOG 


039D 





6B8B 






STX 


3 


MLSCF+2 


039E 





6894 




* 


STX 




MAT05 


039F 





083E 




XIO 




MI0C4 


03A0 





083B 




* 


XIO 




MI0C3 


03A1 





18C8 






SRA 




8 


03A2 





1886 






SRT 




6 


03A3 





D014 






STO 




MSCL3+1 


03A4 





1006 






SLA 




6 


03A5 





1086 






SLT 




6 


03A6 





D031 




* 


STO 




MPDFC 


03A7 





6700 


0273 


LDX 


L3 


MPIDT-1 


03A9 





7301 




MCSL1 


MDX 


3 


1 


03AA 





C300 






LD 


3 





03AB 





4C18 


03BD 




BSC 


L 


MER4.+- 



EXIT IF BUSY SWITCH 
* HAS NOT BEEN RESET 



SET MONITOR MLSCF ENTRY 
SET BUSY SWITCH 



READ DATA 

SENSE PID AND FUNCTION 



SAVE FUNCTION 



STORE PID IN LOG STRING 



FETCH PIO TABLE ENTRY 
BR IF END OF PID TABLE 



8C116340 
80116350 
8C116360 
80116370 
80116380 
80116390 
80116400 
80116410 
80116420 
80116430 
80116440 
80116450 
80116460 
80116470 
80116480 
80116490 
80116500 
80116510 
80116520 
80116530 
80116540 
80116550 
80116560 
80116570 
80116580 
80116590 
80116600 
80116610 
80116620 
80116630 
80116640 
80116650 
80116660 
80116670 
80116680 
80116690 
80116700 
8C116710 
80116720 
80116730 
80116740 
80116750 
80116760 
80116770 
80116780 
80116790 
80116800 
80116810 
80116820 
80116830 
80116840 
80116850 
80116860 
80116870 
80116880 
80116890 
80116900 
80116910 
8C116920 
80116930 
80116940 
80116950 
80116960 
80116970 
80116980 
80116990 
80117000 
80117010 



03AD 





C780 


0000 




LD 


13 





FETCH PID FROM PROGRAM 


80117020 


03AF 





1808 






SRA 




8 




80117030 


03B0 





F027 






EOR 




MPDFC 


COMPARE WITH PID SELECTED 


80117040 


03B1 





10CA 






SLA 




10 




80117050 


03B2 





4C20 


03A9 


* 


BSC 


L 


MCSL1.Z 


BR IF PROG NOT YET FOUND 


80117060 
8C117070 


03B4 





C300 






LD 


3 





CALCULATE ADDR OF FUNCTIOIV 


1 80117080 


03B5 





8002 






A 




MSCL3+1 


LEVEL ENTRY IN PROGRAM 


80117090 


03B6 





D001 




* 


STC 




MSCL3+1 


SAVE ADDR 


80117100 
80117110 


03B7 





67C0 


0000 


MSCL3 


LDX 


L3 


*-* 




80117120 


03B9 





COIF 






LD 




MDES 


FETCH DATA ENTRY SWS 


80117130 


03BA 





D303 




* 
* 


STO 


3 


3 


♦AND STORE IN REQUESTED 
♦PROGRAM AT LEVEL 


80117140 
80117150 
80117160 


03BB 





C01E 






LD 




A003 


SET ACKNOWLEDGE BIT 


80117170 


03BC 





7001 




* 


MDX 




MER41 


♦SWITCHES 


80117180 
80117190 


03BD 





CO ID 




MER4 

* 


LD 




E003 


SET ERROR BIT SWITCHS 


80117200 
80117210 


03BE 





D018 




MER41 

* 


STO 




MMID 


STORE MID IN PRINT STRING 


80117220 
80117230 


03BF 





4C80 


0396 


MCSL2 


BSC 


I 


MNCSL 


RETURN TO COMMON INT RTN 


80117240 










* 

* 










80117250 
80117260 
80117270 










* 










03C1 





6700 


03CA 


MCSL4 


LDX 


L3 


MCSL5 




80117280 


03C3 





6F00 


0329 




STX 


L3 


MLSCF+2 


SET MONITOR MLSCF ENTRY 


80117290 


03C5 





67C0 


03D5 




LDX 


L3 


mho 


XR3=ADDRS OF LOG STRING 


80117300 


03C7 





4400 


02EB 


* 


BSI 


L 


MLCTR 


GO TO MON LOG CONT RTN 


80117310 
80117320 


03C9 





70F7 




MILOG 

* 


MDX 




MCSL4 


ENTER FROM POLLING RTN 


80117330 
80117340 
80117350 
80117360 










* 










03CA 





6300 




MCSL5 


LDX 


3 







80117370 


03CB 





C400 


0321 


* 


LD 


L 


SW1 




80117380 
80117390 


03CD 





6F00 


0333 




STX 


L3 


MAT05 


RESET CI BUSY SWITCH 


80117400 


03CF 





6FO0 


0321 


* 


STX 


L3 


SW1 


RESET FUNCTION 1 SW 


80117410 
8C117420 


03D1 





4420 


04FB 


* 


BSI 


L 


MF01.Z 


XEQ/DXEQ PROG IF SW1 ON 


80117430 
80117440 


03D3 





4C80 


012D 


* 


BSC 


I 


START 


RETURN TO CONTROL ROUTINE 


80117450 
80117460 
80117470 
80117480 










* 






MONITOR 


LOG STRING SET UP IN 










* 






CONSOLE 


INTERRUPT ROUTINE 


80117490 










* 










80117500 


03D5 





0002 




mho 


DC 




/0002 




80117510 


03D6 





0000 






DC 




/OOOO 




80117520 


03D7 





OOCO 




MMIO 


DC 




/OOOO 




80117530 


03D8 


c 


0000 




MPDFC 


DC 




/OOOO 




80117540 


03D9 





0000 




MOES 

* 


DC 




/OOCO 




80117550 
80117560 


03DA 





A0C3 




A003 


DC 




/A003 




80117570 


03DB 





E003 




E003 

* 


DC 




/E003 




80117580 
80117590 










* 

* 










80117600 
80117610 




























* MONITOR 


IOCC WORDS 




80117620 










* 










80117630 


03DC 




0000 






BSS 


E 







80117640 


03DC 





03D8 




MI0C3 


DC 




MPDFC 


READ PROGRAM SWS 


80117650 


03DD 





0760 






DC 




/0760 




80117660 


03DE 





03D9 




MI0C4 


DC 




MDES 


READ DATA ENTRY SWS 


80117670 


03DF 





0240 






DC 




/0240 




80117680 


03E0 





FB89 




MI0C6 


DC 




CKPNT+/F000 ENGLISH OVERLAID CHECK 


8C117690 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


13 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
13A 
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03E1 0000 



DC 



*-* 



* WORD AND RESET CI IOCC 



03E2 





05B2 


03E3 





07F4 


03E4 





0000 


03E5 





02DD 


03E6 





02D0 


03E7 





02DD 


03E8 





02 DO 


03E9 





02 DD 


03EA 





02DD 


03EB 





02 DD 


03EC 





02DD 


03ED 





0200 


03EE 





02 DD 


03EF 





02DD 


03FO 





020D 


03FI 





02 DO 


03F2 





02DD 


03F3 





02DD 


03F4 





02 DD 


03F5 





02DD 


03F6 





02 DO 


03F7 





02DD 


03F8 





02DD 


03F9 





02 DD 


03FA 





02DD 


03FB 





02DD 


03 FC 





02DD 



*************************************************** 
*************************************************** 

* INTERRUPT TRANSFER VECTOR TABLE 
*************************************************** 
*************************************************** 

* THIS TABLE CONTAINS THE INTERRUPT TRANSFER VECTOR 
ADDRESSES. THE ADDRESSES ARE PLACED IN THE 
TABLE BY THE MONITOR SYSTEM EDIT ROUTINE. THE 
MONITOR INITALIZATION ROUTINE STORES THIS TABLE 
AT CORE LOCATIONS /0008 THROUGH /0022. 



* 
* 
* 
* 
* 
IXFV 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



ILTER 

ILTTR 



TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 

TRP28-1 



INTERNAL ERROR 
TRACE INTERRUPT 
CE INTERRUPT 



********************************************** 
********************************************** 

* MONITOR BEGIN ROUTINE 

* ***BEGIN*** 

********************************************** 
********************************************** 
* 

THIS ROUTINE IS THE FIRST INTERFACE BETWEEN 
THE USER PROGRAM AND THE MONITOR. THE USER 
PROGRAMS END CARD CAUSES THE LOADER TO XFER 
CONTROL TO THE USER PROGRAM. THE PROGRAM 
IN TURN PREFORMS A 



BSI 
DC 



I 



BEGIN 

ADRS USERS PID 



THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS. 

1. STORES THE ADDRESS WHERE THE PROGRAM WAS 
LOADED IN THE MONITOR PID TABLE. 

2. CHECKS THAT THE PREVIOUSLY LOADED PROGRAM WAS 
PROPERLY EDITEO. 

3. CHECKS IF THE LAST PROGRAM LOADED OVERLAID THE 
ENGLISH PRINT SECTIONS OF MONITOR. IF SO, 
DISABLES ALL PROG XFERS TO THESE SECTIONS AND 
PRINTS THE A006 MSG. 

4. IF PAPER TAPE IPL IS BEING USED, SETS UP FOR 



80117700 
80117710 
80117720 
80117730 
80117740 
80117750 
80117760 
80117770 
80117780 
80117790 
80117800 
80117810 
80117820 
80117830 
80117840 
80117850 
80117860 
80117870 
80117880 
80117890 
80117900 
80117910 
80117920 
80117930 
80117940 
80117950 
80117960 
80117970 
80117980 
80117990 
80118000 
80118010 
80118020 
80118030 
80118040 
80118050 
80118060 
80118070 
80118080 
80118090 
80118100 
80118110 
80118120 
80118130 
80118140 
80118150 
80118160 
80118170 
80118180 
80118190 
80118200 
80118210 
80118220 
80118230 
80118240 
80118250 
80118260 
80118270 
80118280 
80118290 
80118300 
80118310 
80118320 
80118330 
80118340 
80118350 
80118360 
80118370 











* 


MANUA 


L EDIT AND H 










* 5. 


FOR CARD 


IPL OR 










* 

* 


LOADER FOR EDIT I 


03F0 





0000 




BGIN 

* 


DC 




/OOOO 


03FE 





C480 


03FD 


LD 


I 


BGIN 


0400 





D400 


049 E 




STO 


L 


MLD3 


0402 





6780 


049E 


* 


LDX 


13 


MLD3 


0404 





C400 


0334 




LD 


L 


MAT06 


0406 





4C18 


040A 


* 
TRP21 


BSC 


L 


*+2,+- 


0408 





3021 




WAIT 




/2l 


0409 





70FE 




£ 


MDX 




TRP21 


040A 





C300 






LD 


3 





040B 





0400 


0334 




STO 


L 


MAT06 


040D 





D400 


049C 


£ 


STO 


L 


MLD1 


040F 





C300 




BGIN1 


LD 


3 





0410 





F400 


04 A 4 




EOR 


L 


EOED 


0412 





4C18 


0416 


* 


BSC 


L 


BGIN2.+- 


0414 





7301 




MDX 


3 


1 


0415 





70F9 




* 


MDX 




BGIN1 


0416 





7307 




BGIN2 


MDX 


3 


7 


0417 





6B39 




* 


STX 


3 


MECD2+1 


0418 





C0C7 




LD 




MI0C6 


0419 





F400 


0125 




EOR 


L 


NLOC 


041B 





4C28 


042 8 


^c 


BSC 


L 


BGIN3.Z+ 


041D 





C0C2 






LD 




MI0C6 


041E 





9400 


0125 




S 


L 


NLOC 


0420 





4C10 


0428 


♦ 


BSC 


L 


BGIN3,- 


0422 





1010 






SLA 




16 


0423 





D400 


0135 


♦ 


STO 


L 


ENGLD 


0425 





4400 


033C 




BSI 


L 


MSI 


0427 





A006 




A006 


DC 




/A006 


0428 





6700 


0274 


BGIN3 


LDX 


L3 


MPIDT 


042A 





C300 






LD 


3 





042 B 





4C18 


042F 


♦ 


BSC 


L 


BGIN4.+- 


042D 





7301 






MDX 


3 


1 


042E 





70FB 




♦ 


MDX 




BGIN3+2 


042F 





C06E 




BGIN4 


LD 




MLD3 


0430 





D300 




* 


STO 


3 





0431 





6500 


EOOO 




LDX 


LI 


/EDOO 


0433 





69C9 




* 


STX 


1 


BGIN 


0434 





COOD 




LD 




EDWT 


0435 





0007 






STO 




WT5 



FETCH ADRS OF PID 



WAS LAST PROGRAM EDITED 
* YES, BRANCH 



0436 6124 

0437 C80C 

0438 D900 

0439 C009 
043A D1FF 



ERROR TRAP 21 
FETCH PID 



SEARCH FOR EDIT FIELD 

IN PROGRAM 
BRANCH WHEN FOUND 



SAVE EDIT FIELD ADDR 

CK IF PROGRAM WAS LOADED 

INTO THE LAST 32K OF CORE 
BR IF NOT LAST 32K 

CK IF ENGLISH PRINT RTNS 

HAVE BEEN OVERLAID 
BR IF ENG NOT OVERLAID 

DISABLE 
ENGLISH PRINTOUTS 

PRINT A006 MESSAGE 



SEARCH FOR BLANK ENTRY 

IN MONITOR PID TABLE 
BRANCH WHEN FOUND 



SET PID TABLE ENTRY 



PREPARE FOR 1ST EDIT CARD 

SET UP WAIT 5 IF 
* PAPER TAPE IPL 

* 

* PREPARE FOR MANUAL EDIT IF PAPER TAPE IPL. 

* 

MNED LDX 1 36 

LDD BRCH 

STD I 

LD NOP 

MNED1 STO 1 -1 



80118380 
80118390 
80118400 
80118410 
80118420 
80118430 
80118440 
80118450 
80118460 
80118470 
80118480 
80118490 
80118500 
80118510 
80118520 
80118530 
80118540 
80118550 
80118560 
80118570 
80118580 
80118590 
80118600 
80118610 
80118620 
80118630 
80118640 
80118650 
80118660 
80118670 
80118680 
80118690 
80118700 
80118710 
80118720 
80118730 
80118740 
80118750 
80118760 
80118770 
80118780 
80118790 
80118800 
80118810 
80118820 
80118830 
80118840 
80118850 
80118860 
80118870 
80118880 
80118890 
80118900 
80118910 
80118920 
80118930 
80118940 
80118950 
80118960 
80118970 
80118980 
80118990 
80119000 
80119010 
80119020 
80119030 
80119040 
80119050 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04NOV66 


03JUL68 


14N0V69 


PAGE 


14 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
14A 



I I 



I I I 



I I I I I I 



1 I 
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I I 
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0438 





71FF 




MDX 


1 -1 


043C 





7CFD 


♦ 


MDX 


MNED1 


043D 





3005 


WT5 

* 


WAIT 


/5 


043E 





C004 


LD 


NOP 


043F 





DOFD 


4c 


STO 


WT5 


0440 





6050 


* 


LDX 


LOR 


0442 




0000 


BSS E 





0442 





3005 


EDWT 


WAIT 


/5 


0443 


c 


7000 


NOP 


MDX 


* 


0444 





4CC0 0446 


BRCH 


BSC I 


EDCD 



0446 6400 0800 

0448 F053 

0449 4C18 0440 

044B 301E 
044C 70FE 

044D C400 0127 
044F D04F 

0450 6700 0000 

0452 C101 

0453 F0A9 

0454 4820 

0455 7013 



NORMAL WAIT 5 

* NOP IF NOT PAPER TAPE 
NO-OP WAIT 5 

* FOR AUTO EDIT 

GO TO LOADER 



/7000 IF NOT PAPER TAPE 



********************************************** 
********************************************** 

* MONITOR PROGRAM EDIT ROUTINE 
********************************************** 
********************************************** 

* THE LOADER XFERS TO THIS ROUTINE WHENEVER 

* IT ENCOUNTERS AN EDIT CARD. 
* 

* NOTE. THE FIRST INST OF THIS RT IS 

* AN 

* LDX L MEC 

* THIS INST IS A BRANCH TO THE 

* MONITOR SYSTEM EDIT ROUTINE. 

* AFTER THE MONITOR HAS BEEN 

* EDITED THE INST IS MODIFIED 

* TO 

* LDX 1 

* LD 1 . 
* 

* THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS. 
* 

* 1. CHECKS EDIT CARD PIO AND SEQUENCE NUMBERS. 

* 2. PLACES EDIT INFO FROM CARDS INTO THE EDIT AREA 

* IN THE PROGRAM. 

* 3. WHEN AN END OF EDIT CARD IS FOUND. 
* 
* 
* 
* 
* 

* 4. 
* 
* 
* 
* 
* 

EDCD 
* 



A. PRINTS THE D001 MSG 

B. IF IN OVERLAP MODE XFERS TO THE LOADER. 

C. IF IN BOOTSTRAP MODE EXECUTES THE PROGRAM 
IF LOAD AND GO IS SELECTED AND THEN XFERS 
TO THE MONITOR CONTROL ROUTINE. 

THE IAST CARD SEQUENCE WILL CAUSE THE LOADER 
TO ENTER THIS ROUTINE AT LSCD. THIS ROUTINE 
WILL THEN XEQ ALL PROGRAMS IF LOAD AND GO IS 
SELECTED AND THEN XFER TO THE MON CONTROL RTN. 



LDX 



EOR 
BSC 

* 

TRP1E WAIT 
MDX 

* 

MEC CI LD 
STO 

* 

MECD2 LDX 
LD 
EOR 
BSC 
MDX 



L3 

1 



MEC 

MLD1 
MECD1,+- 

/1E 
TRPIE 

UPPER 
MLD4 

*-* 
1 

BGIN 
Z 

MENED 



LDX 



/ LD 



CK PID ENTRY ON EDIT CARD 
BR IF PID OK 

ERROR TRAP IE 

WRONG PID ON EDIT CARD 

FETCH RELOCATION FACTOR 
SAVE FOR PRINTOUT 

XR3=PR0G EDIT AREA ADDRS 



SEQUENCE NUMBER CORRECT 
* NO, BRANCH 



80119060 
80119070 
80119080 
80119090 
80119100 
80119110 
80119120 
80119130 
80119140 
8C119150 
80119160 
80119170 
80119180 
80119190 
80119200 
80119210 
80119220 
80119230 
80119240 
80119250 
80119260 
80119270 
80119280 
80119290 
80119300 
80119310 
80119320 
80119330 
80119340 
80119350 
80119360 
80119370 
80119380 
80119390 
80119400 
80119410 
80119420 
80119430 
80119440 
80119450 
80119460 
80119470 
80119480 
80119490 
80119500 
80119510 
80119520 
80119530 
80119540 
80119550 
80119560 
80119570 
80119580 
80119590 
8C119600 
80119610 
80119620 
80119630 
80119640 
80119650 
80119660 
80119670 
80119680 
80119690 
80119700 
80119710 
80119720 
80119730 



0456 





6680 


0002 


MECDB 


LDX 


12 


2 


XR2=NUMBER OF EDIT ENTRIES 


80119740 


0458 





74F4 


0002 




MDX 


L 


2,-12 


CHECK FOR CORRECT 


80119750 


045A 





7002 






MDX 




TRP20 


* NUMBER OF 


80119760 


045B 





7200 






MDX 


2 





* EDIT ENTRIES ON CARD 


80119770 


045C 





7002 




* 


MDX 




♦ ♦2 




80119780 
8C119790 


045D 





3020 




TRP20 


WAIT 




/20 


ERROR TRAP 20 


80119800 


045E 





70FE 




* 


MDX 




TRP20 


* WRONG NO. ENTRIES 


80119810 
80119820 


045F 





C103 




MEC DA 


LD 


1 


3 


FETCH EDIT ENTRY 


80119830 


0460 





D300 






STO 


3 





SET IN EDIT AREA 


80119840 


0461 





7101 






MDX 


1 


1 




80119850 


0462 





7301 






MDX 


3 


1 




80119860 


0463 





6BED 






STX 


3 


MECD2+1 




8C119870 


0464 





72FF 






MDX 


2 


-1 


CHECK IF ALL ENTRIES 


80119880 


0465 





70F9 




* 


MDX 




MECDA 


* ON CARD STORED 


80119890 
80119900 


0466 





7401 


03FD 




MDX 


L 


BGIN.l 


INCRE SEQUENCE NUMBER 


8C1 19910 


0468 





70CD 




* 


MDX 




MNED 


RETURN TO LOADER 


80119920 
80119930 


0469 





C101 




MENED 


LO 


1 


1 




80119940 


046A 





F039 






EOR 




EOED 




80119950 


046 B 





4C18 


046 F 


* 


BSC 


L 


MECD8.+- 


BR IF END OF EDIT CARD 


80119960 
80119970 


046D 





301F 




TRP1F 


WAIT 




/1F 


ERROR TRAP IF 


80119980 


046E 





70FE 




* 


MDX 




TRP1F 


* CARDS OUT OF SEQUENCE 


80119990 
80120000 


046F 





4400 


033C 


MECD8 


BSI 


L 


MSI 


INITIALIZE MONITOR AND 


80120010 


0471 





0499 




* 


DC 




MLDST 


* AND PRINT D001 MSG 


80120020 
80120030 


0472 





C400 


0283 




LD 


L 


MPIDT+15 


TERMINATE LOADING IF 15 


80120040 


0474 





4C20 


0489 


* 


BSC 


L 


LSCD.Z 


PROGS HAVE BEEN LOADED 


80120050 
80120060 


0476 





C400 


0125 




LD 


L 


NLOC 


CK NEXT PROG LOAD ADDR 


80120070 


0478 





E828 






OR 




HOOFF 


256 WORD BOUNDARY 


80120080 


0479 





D400 


0125 




STO 


L 


NLOC 




80120090 


047 B 





4C28 


0485 


* 


BSC 


L 


MECD3.Z+ 


BR IF ADDR ABOVE 32K 


80120100 
80120110 


047D 





8022 






A 




H1800 




80120120 


047 E 





E400 


0126 




AND 


L 


ULIM 




80120130 


0480 





4C10 


0485 


* 


BSC 


L 


MECD3,- 


BR IF ADDR BELOW 26K 


80120140 
80120150 


0482 





COIF 






LD 




H80FF 


START LOADING NEXT 


80120160 


048 3 





D400 


0125 


* 


STO 


L 


NLOC 


PGM AT ADDR /80FF 


80120170 
80120180 


0485 





C400 


059B 


MECD3 


LD 


L 


MODE 


RETURN TO LOADER IF 


80120190 


0487 





4C10 


058E 


* 


BSC 


L 


W6,- 


* OVERLAP MODE 


80120200 
80120210 


0489 





C400 


0334 


LSCC 


LD 


L 


MAT06 




80120220 


048B 





4C20 


0408 


* 


BSC 


L 


TRP2NZ 


BR IF LAST PROG NOT EDITED 


80120230 
80120240 


048 D 





4400 


033C 




BSI 


L 


MSI 


INITIALIZE MONITOR 


80120250 


048F 





A005 




A005 

* 


DC 




/A005 


* AND PRINT A005 MSG 


80120260 
80120270 


0490 





C400 


059A 




LD 


L 


LDADR 




80120280 


049 2 





1007 






SLA 




7 




80120290 


049 3 





4C10 


04AE 


* 


BSC 


L 


MCON,- 


BR IF NOT LOAD AND GO 


80120300 
80120310 


0495 





COOD 






LD 




H0101 


XEQ ALL PROGRAMS IN CORE 


80120320 


0496 





4400 


04FB 


* 


BSI 


L 


MF01 


* IF LOAD AND GO 


80120330 
80120340 


0498 





7015 




* 

* 


MDX 




MCON 




80120350 
80120360 
80120370 
80120380 










* 






RELOCATION OUTPUT STRING 










* 






FOR 


LOG CALL 


80120390 










*$ 










8C120400 


0499 





0004 




MLCST 


DC 




/0004 


WORD COUNT 


80120410 



DATE 


28FEB66 


01JUL66 


04NOV66 


03JUL68 


14N0V69 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


15 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
15A 
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049A 





0000 


049B 





D001 


049C 





0000 


049 D 





07FF 


049E 





0000 


049 F 





0000 


04A0 





1800 


04 A 1 





OOFF 


04A2 





8 OFF 


04A3 





0101 


04A4 





FFFF 



/oooo 


HEX 


/D001 


MID 


/OOOO 


PID 


2047 


LISTING ADDRS 


/OOOO 


1ST ADRS 


/OOOO 


RELOCATION FACTOR 


/1800 




/OOFF 


/OOFF 


/80FF 




/0101 




/FFFF 





DC 
D001 DC 
MLD1 DC 
MLD2 DC 
ML03 DC 
MLD4 DC 
* 

H1800 DC 
HOOFF DC 
H80FF DC 
H0101 DC 
EOED DC 
* 

********************************* ************* 
********************************************** 

* MONITOR CONTROL SECTION 
********************************************** 

********************************************** 

* THIS SECTION CONSISTS OF THREE SUBROUTINES. 

* 
* 
* 
* 
* 
* 

* MRS * 

* * 

* MCON * 

* * 

* MXEQ1 * 
* 

* 

* THESE SUBROUTINES PERFORM THE FOLLOWING FUNCTIONS 
* 

* MRS 1. THIS SECTION IS ENTERED WHENEVER THE 

* OPERATOR PERFORMS A RESTART PROCEDURE, 
OR WHEN A CE INTERRUPT TO MAINLINE 
OCCURS. 

2. HALTS AT ERROR TRAP 26 IF ENTRY WAS VIA 
A CE INTERRUPT. 

3. IF ENTRY WAS VIA A RESTART PROCEDURE 
XFERS TO THE INITIALIZATION ROUTINE TO 
INITIALIZE THE MONITOR AND PRINT THE 
C002 MESSAGE. 

4. HALTS AT WAIT 1 TO WAIT FOR SELECTION OF 
OPERATING OPTIONS AND PROGRAMS FOR 
EXECUTION. 

EXIT FROM WAIT MAY BE VIA EITHER AN 
INTERRUPT OR THE START BUTTON. IN 
EITHER CASE CONTROL IS XFERED TO MCON. 



THE THREE SUBROUTINES ARE. 

LABEL * NAME 
****************** 
* 

MONITOR RESTART SUBROUTINE 

MONITOR CONTROL SUBROUTINE 

MONITOR POLLING SUBROUTINE 



5. 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* MCON 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* MXEQ1 1. 
* 
* 
* 
* 
* 
* 



1. 



2. 



5. 



XFERS TO THE RETURN TO LOADER ROUTINE 

IF MONITOR FUNCTION 00 SWT 9 IS SELECTED 

HALTS AT WAIT 3 IF THE HALT OPTION IS 

SELECTED. 

HALTS AT ERROR WAIT 9 IF LOG DEVICE 

INTERRUPTS ARE FAILING TO OCCUR. 

XFERS TO WAIT 1 IF NO PROGRAMS ARE 

SELECTED FOR EXECUTION. 

XFERS TO MXEQ1 



SCANS THE MLSCF OF EACH PROGRAM THAT IS 
FLAGGED FOR EXECUTION IN THE MONITOR 
PID TABLE. 
2. WHEN AN MLSCF ENTRY IS FOUND XFERS TO 
THE ADDRESS SPECIFIED IN THE ENTRY. 
AFTER ONE COMPLETE SCAN OF ALL EXECUTING 
PROGRAMS XFERS TO MC0N1. 



3. 



80120420 
80120430 
80120440 
80120450 
80120460 
80120470 
80120480 
80120490 
80120500 
8C120510 
80120520 
80120530 
80120540 
80120550 
80120560 
80120570 
80120580 
80120590 
80120600 
80120610 
80120620 
80120630 
80120640 
80120650 
80120660 
80120670 
80120680 
80120690 
80120700 
80120710 
80120720 
80120730 
80120740 
80120750 
80120760 
80120770 
80120780 
80120790 
8C120800 
80120810 
80120820 
80120830 
80120840 
80120850 
80120860 
80120870 
8C120880 
80120890 
80120900 
80120910 
80120920 
80120930 
80120940 
80120950 
80120960 
80120970 
80120980 
80120990 
80121000 
80121010 
80121020 
80121030 
80121040 
8C121050 
80121060 
80121070 
80121080 
80121090 











* 










80121100 










** 














80121110 










* 






MONITOR RESTART SUBROUTINE 


80121120 










* 










80121130 


04A5 





4C18 


04A9 


MRS 

* 


BSC 


L 


MRS1,+- 


BR IF A REG IS RESET 


80121140 
80121150 


04A7 





3026 




TRP26 


WAIT 




/26 


ERROR TRAP 


80121160 


04A8 





70FE 




* 


MDX 




TRP26 


* CE INTERRUPT 


80121170 
80121180 


04A9 





D04F 




MRS1 
* 


STO 




RSTSW 


CLEAR RESTART INDICATOR 


80121190 
80121200 


04AA 





4400 


033C 




BSI 


L 


MSI 


INITIALIZE MONITOR AND 


80121210 


04AC 





C002 




C002 

* 


DC 




/C002 


* PRINT C002 MSG 


80121220 
80121230 


04AD 





3001 




WT1 

* 

* 

* 


WAIT 




/l 


NORMAL WAIT 1 


80121240 
80121250 
80121260 
80121270 














MONITOR CONTROL SUBROUTINE 










* 










80121280 


04AE 





684B 




MCON 

■* 


STX 




POLSW 


SET POLLING INDICATOR 


80121290 
80121300 


04AF 





C400 


0330 


MC0N1 


LD 


L 


MAT02 


CHECK IF LOG RTN 


80121310 


04B1 





4C18 


04BA 


* 


BSC 


L 


MC0N2,«— 


* BUSY 


80121320 
80121330 


04B3 





74FF 


07A2 




MDX 


L 


LGINT t -l 


CHECK IF LOG INTERRUPTS 


80121340 


04B5 





7018 




* 


MDX 




MXEQ1 


* ARE OCCURING 


80121350 
80121360 


04B6 





3009 




EWT9 

* 


WAIT 




/9 


ERROR WAIT 9 

* LOG DEVICE FAILURE 


80121370 
80121380 


04B7 





7401 


07A2 




MDX 


L 


LGINT.+l 




80121390 


04B9 





70F4 




* 


MDX 




MCON 




80121400 
80121410 


04BA 





C400 


0320 


MC0N2 


LD 


L 


SWO 


GO TO LOAD RTN IF MON 


80121420 


04BC 





1009 






SLA 




9 


* FUNCTION 00 


80121430 


04BD 





4C28 


0573 


* 


BSC 


L 


LOAD,Z+ 


* SWITCH 9 IS ON 


80121440 
80121450 


04BF 





1006 






SLA 




6 


HALT IF MON FUNCTION 00 


80121460 


04C0 





4C10 


04C9 


* 


BSC 


L 


MC0N4,- 


* SWITCH 15 IS ON 


80121470 
80121480 


04C2 





D400 


0285 


* 


STO 


L 


ILRC 


SET INTERRUPT INDICATOR 


80121490 
80121500 


04C4 





3003 




WT3 

* 


WAIT 




/3 


NORMAL WAIT 3 

* MON HALT SELECTED 


80121510 
80121520 


04C5 





C400 


0285 




LD 


L 


ILRC 


BR IF WAIT WAS EXITED VIA 


80121530 


04C7 





4C10 


04AF 


* 


BSC 


L 


MC0N1,- 


* AN INTERRUPT 


80121540 
80121550 


04C9 





C030 




MC0N4 


LD 




POLSW 




80121560 


04CA 





4C18 


04AD 


* 


BSC 


L 


WT1.+- 


BR IF POLLING SW OFF 


80121570 
80121580 


04CC 





1010 






SLA 




16 




80121590 


04CO 





D02C 




* 
* 


STO 




POLSW 


RESET POLLING SWITCH 


80121600 
80121610 
80121620 
80121630 










* 






MONITOR POLLING SUBROUTINE 


80121640 










* 










80121650 


04CE 





6500 


003C 


MXEQ1 


LDX 


LI 


60 




80121660 


04D0 





6927 




* 


STX 


1 


SPIN 


SET UP 1 MSEC POLLING RATE 


80121670 
80121680 


04D1 





61F0 






LDX 


1 


-16 




80121690 


04D2 





C500 


0284 


* 


LD 


LI 


MPIDT+16 


FETCH MON PST ADDRS 


80121700 
80121710 


04D4 





D400 


032E 


MXEQ2 


STC 


L 


MATOO 


MAT00=ADDRS OF PID 


80121720 


04D6 





6680 


032 E 


* 


LDX 


12 


MAT 00 


XR2=AD0RS OF PID 


80121730 
80121740 


04D8 





C20A 




MXE03 


LD 


2 


10 


FETCH MLSCF ENTRY 


80121750 


04D9 





FOCA 






EOR 




EOED 




80121760 


04DA 





4C18 


04EA 




BSC 


L 


MXEQ5.+- 


BR IF TERMINATOR 


80121770 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


PAGE 


16 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
16A 



111(11 



I I I ( I ( I I I J I ,,1(1111(1 I I I I 
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04DC C C20A 
040D 7201 
04DE 4C18 04D8 

04EO D400 032F 
04E2 1010 
04E3 D209 

04E4 6903 

04E5 4C80 032F 

04E7 C 6500 COOO 
04E9 6810 

04EA 7101 
04EB 7004 

04EC 74FF 04F8 
04EE 70FD 
04EF 70BF 

04F0 C580 0284 
04F2 4C10 04EA 

04F4 C500 0284 
04F6 6803 
04F7 700C 

04F8 0000 
04F9 0000 
04FA 0000 



* 
MXEQ4 



LD 

MDX 

BSC 

STC 
SLA 
STO 

STX 

BSC 

LDX 
STX 



10 

1 

MXEQ3.+- 

MAT01 

16 

9 



1 MXEQ4+1 



MAT01 



LI 



*-* 
POLSW 



BR IF ENTRY ZERO 



SAVE MLSCF ENTRY 



RESET MLSCF 



SAVE XR1 

GO TO USER 

RESTORE XR1 
SET POLLING 



INDICATOR 



MXE05 MDX 
MDX 

* 

DL MDX 
MDX 
MDX 



1 1 



MXEQ6 

SPIN,- 

DL 

MC0N1 



* 
MXEQ6 



LD 
BSC 

LD 

STX 

MDX 



II 

L 



LI 



MPIDT+16 
MXEQ5,- 

MPIDT+16 

POLSW 

MXEC2 



BR IF MORE MPIDT ENTRYS 

ADJUST POLLING RATE 

TO 1 MSEC MINIMUM 
GO TO CONTROL SUBROUTINE 

FETCH PID 

BR IF NOT FLAGGED TO XEQ 



SET POLLING INDICATOR 



POLLING DELAY COUNTER 
PROG RESTART IND 
POLLING INDICATOR 



* 

SPIN DC *-* 

RSTSW DC *-* 

POLSW DC *-* 

* 

* 

********************************************** 

********************************************** 

* MONITOR FUNCTION 01 ROUTINE 

* ***MF01*** 

********************************************** 
********************************************** 

* THIS ROUTINE IS USED TO CONTROL EXECUTION AND 
DE-EXECUTION OF PROGRAMS. ENTRY INTO THIS 
ROUTINE IS VIA A BSI INSTRUCTION WITH THE PID OF 
THE PROGRAM TO XEQ/DXEQ IN BITS 10-15 OF THE 
ACCUMULATOR. BIT 7 IN THE ACCUMULATOR ON=XEQ 
PROG, BIT 7 OFF=DXEQ PROG. 



THIS SECTION CONSISTS OF THREE SUBROUTINES WHICH 
PERFORM THE FOLLOWING FUNCTIONS. 



MF01 



1. 
2. 



4. 



THIS SECTION IS ENTERED BY THE BSI CALL. 
CHECKS THAT THE PROGRAM TO XEQ/DXEQ IS 
IN CORE. IF NOT SETS EOOO MSG EXIT. 
CHECKS IF THE PROG TO XEQ/DXEQ IS THE 
MONITOR. IF SO SETS A MONITOR MLSCF 
ENTRY TO XDXAL AND EXITS. 
IF THE CALL IS TO XEQ A PROGRAM 

A. CHECKS THAT THE PROG IS NOT ALREADY 
EXECUTING. IF SO SETS E001 MSG EXIT. 

B. SETS XEQ BIT ON IN MONITOR PIO TABLE 

C. RESETS PROGRAMS MLSCF 

D. XFERS TO PROGRAMS INITIALIZATION 
ROUTINE (IPA). 

E. SETS A001 MSG EXIT. 

IF THE CALL IS TO DXEQ A PROGRAM. 
A. CHECKS THAT THE PROGRAM IS EXECUTING. 
IF NOT SETS E001 MSG EXIT. 



80121780 
80121790 
80121800 
80121810 
80121820 
80121830 
80121840 
80121850 
80121860 
80121870 
80121880 
80121890 
80121900 
80121910 
80121920 
80121930 
80121940 
80121950 
80121960 
80121970 
80121980 
80121990 
80122000 
80122010 
80122020 
80122030 
80122040 
80122050 
80122060 
80122070 
80122080 
80122090 
80122100 
80122110 
80122120 
80122130 
80122140 
80122150 
80122160 
80122170 
80122180 
80122190 
80122200 
80122210 
80122220 
80122230 
80122240 
80122250 
80122260 
80122270 
80122280 
80122290 
80122300 
80122310 
80122320 
80122330 
80122340 
80122350 
80122360 
80122370 
80122380 
80122390 
80122400 
80122410 
80122420 
80122430 
80122440 
80122450 



04FB 0000 

04FC 1886 

04FD 1802 

04FE D07C 

04FF 100F 

0500 D06C 

0501 1086 

0502 D06D 

0503 6700 0274 

0505 1008 

0506 F400 031D 
0508 4C18 0542 



* 
* 
* 
* 
* 
* 
* 
* 

* MF011 
* 

* 
* 
* 
* 

* XDXAL 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

MF01 

* 



050A 





C300 




050B 





66 00 


EOOO 


050D 





4C18 


054A 


050F 





C780 


0000 


0511 





1002 




0512 





180A 




0513 





F05C 




0514 





4C18 


0518 


0516 





7301 




0517 





70F2 





EOOO 



0518 7201 

0519 C C780 0000 
051B F051 
051C 4C10 054A 



* 
E001 



B. RESETS XEQ BIT IN MPIDT. 

C. CHECKS IF PROG WAS USING LOG. IF SO 
RESETS TERMINATION ADDRS (MAT07). 

D. XFERS TC PROGRAMS END ROUTINE (EPA). 

E. SETS A001 MSG EXIT 

6. SETS A MONITOR MLSCF ENTRY TO MF01L. 

7. RETURNS TO CALLING ROUTINE VIA MF01. 

1. THIS SECTION IS ENTERED FROM THE MONITOR 
POLLING SUBROUTINE VIA THE MLSCF ENTRY 
SET IN MF01. 

2. CALLS ON THE MONITOR LOG CONTROL ROUTINE 
TO PRINT THE A001, EOOO, OR E001 MSG. 

1. THIS SECTION IS ENTERED FROM THE MONITOR 
POLLING SUBROUTINE VIA THE MLSCF ENTRY 
SET IN MF01 WHEN THE CALL IS TO XEQ/DXEQ 
MONITOR (XEQ/DXEQ ALL PROGRAMS). 

2. IF THE CALL IS TO XEQ ALL PROGRAMS 

A. SCANS THE MPIDT SEARCHING FOR 
PROGRAMS NOT FLAGGEO FOR EXECUTION. 

B. WHEN A PROGRAM IS FOUND CALLS ON MF01 
TO XEQ THE PROGRAM. 

3. IF THE CALL IS TO DXEQ ALL PROGRAMS 

A. SCANS THE MPIDT SEARCHING FOR 
PROGRAMS FLAGGEO FOR EXECUTION. 

B. WHEN A PROGRAM IS FOUND CALLS ON MF01 
TO DXEQ THE PROGRAM. 

4. AFTER EACH CALL ON MF01 ANOTHER MLSCF 
ENTRY TO XDXAL IS SET AND XFER TO THE 
MONITOR POLLING SUBROUTINE ALLOWS 
PRINTING OF THE A001 MSG. 

5. AFTER ALL PROG HAVE BEEN XEQ/DXEQ NO 
FURTHER MLSCF ENTRIES ARE SET. 



DC 



SRT 
SRA 
STC 
SLA 
STC 

SLT 

STO 

LDX 
SLA 
ECR 
BSC 

LD 

LDX 

BSC 

LD 

SLA 

SRA 

EOR 

BSC 

MDX 
MDX 

MOX 
LD 
EOR 
BSC 



*-* 

6 

2 

MODI 

15 

XDXS1 

6 
M0D2 

L3 MPIDT 

8 
L PID 
L MF01E.+- 

3 
L2 /EOOO 
L MF01F.+- 

13 

2 

10 

M0D2 
L E001.+- 

3 1 

EOOO-l 

2 1 

13 

XDXS1 
L MF01F,- 



SET XEQ/DXEQ IN LOG STRING 
SET XEQ/DXEQ SWITCH 

SAVE PIO IN LOG STRING 

XR3=PID TABLE ADDR 

GO XEQ/DXEQ ALL PROGRAMS 
* IF MONITOR PID 

FETCH PST ADDRS 

BR IF PROG NOT IN CORE 

SEARCH FOR 
SELECTED 
PROGRAM IN 
MONITOR PID TABLE 
BR IF PROGRAM FOUND 



CHECK IF PROGRAM IS 
* ALREADY XEQ OR DXEQ 



80122460 
80122470 
80122480 
80122490 
80122500 
80122510 
80122520 
80122530 
80122540 
80122550 
80122560 
80122570 
80122580 
80122590 
80122600 
80122610 
80122620 
80122630 
80122640 
80122650 
80122660 
80122670 
80122680 
80122690 
80122700 
80122710 
80122720 
80122730 
80122740 
80122750 
80122760 
80122770 
80122780 
80122790 
80122800 
80122810 
80122820 
80122830 
80122840 
80122850 
80122860 
80122870 
80122880 
80122890 
80122900 
80122910 
80122920 
80122930 
80122940 
80122950 
80122960 
80122970 
80122980 
80122990 
80123000 
80123010 
80123020 
80123030 
80123040 
80123050 
80123060 
8C123070 
80123080 
80123090 
80123100 
80123110 
80123120 
80123130 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 


0801-2 


DATE 


28FEB66 


01JUL66 


04NOV66 


03JUL68 


14N0V69 


PAGE 


17 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
17A 
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* 










80123140 






051E 





1002 






SLA 




2 




80123150 






051F 





1802 






SRA 




2 




80123160 






0520 





E84C 






OR 




XDXS1 


SET XEQ/DXEQ BIT 


80123170 






0521 





D780 


0000 


* 


STO 


13 







80123180 
80123190 






0523 





6B02 






STX 


3 


MF01A+1 




80123200 






0524 





6B17 




* 


STX 


3 


MF01C+1 




8C123210 
80123220 






0525 





6780 


0000 


MF01A 


LOX 


13 


*-* 


XR3=PST ADDRESS 


80123230 






0527 





4C08 


0533 


* 


BSC 


L 


XEQU.+ 


BR IF XEO PROGRAM 


80123240 
80123250 






0529 





F480 


0331 




EOR 


I 


MAT03 




80123260 






052B 





1001 






SLA 




1 


CK IF PROG IS 


80123270 






052C 





4C20 


0530 


* 


BSC 


L 


MF01B.Z 


* USING LOG 


80123280 
80123290 






052E 





D400 


0332 


* 


STO 


L 


MAT04 


RESET TERM ADDRS 


80123300 
80123310 






0530 





4780 


0009 


MF01B 


BSI 


13 


9 


GO TO PROG END RTN 


80123320 






0532 





700C 




* 


MDX 




A001 




80123330 
80123340 






0533 





730 A 




XEOU 


MDX 


3 


10 




80123350 






0534 





C300 






LO 


3 





FETCH MLSCF ENTRY 


80123360 






0535 





4C28 


053B 


* 


BSC 


L 


MFOIC, Z + 


BR IF MLSCF TERMINATOR 


80123370 
80123380 






0537 





1010 






SLA 




16 


RESET MLSCF ENTRY 


80123390 






0538 





0300 






STO 


3 







80123400 






0539 





7301 






MDX 


3 


1 




80123410 






053A 





70F9 




* 


MDX 




XEQU+1 




80123420 
80123430 






053B 





6780 


0000 


MFOIC 


LDX 


13 


*-* 


XR3=PST ADDRESS 


80123440 






053D 





4780 


0007 


* 


BSI 


13 


7 


GO TO PRCG INITL RTN 


80123450 
80123460 






053F 





66C0 


A001 


A001 


LDX 


L2 


/A001 




80123470 






0541 





7008 




* 


MDX 




MF01F 




80123480 
80123490 






0542 





C02A 




MFOIE 


LD 




XDXS1 




80123500 






0543 





D02D 






STO 




XDXS2 


SET XEQ/DXEQ ALL PROG SW 


80123510 






0544 





6B12 






STX 


3 


XDXAL+1 




80123520 






0545 





67 CO 


0556 




LDX 


L3 


XDXAL 




80123530 






0547 





6F00 


032A 




STX 


L3 


MLSCF+3 


SET MON MLSCF ENTRY 


80123540 






0549 





7005 




* 


MDX 




MF01G 




80123550 
80123560 






054A 





6A23 




MF01F 


STX 


2 


MMIDL 


SET MSG ID IN LOG STRING 


80123570 






054B 





6700 


0555 




LDX 


L3 


MLLOG 




80123580 






054D 





6F0O 


0328 


* 


STX 


L3 


MLSCF+1 


SET MON MLSCF ENTRY 


80123590 
80123600 






054F 





4C80 


04FB 


MF01G 

* 


BSC 


I 


MF01 


RETURN TO CALLING RT 


80123610 
80123620 














* 










0\J Lc. D OjU 

80123640 






0551 





6700 


056C 


MF01L 


LDX 


L3 


MLIO 




80123650 






0553 





4400 


02EB 


* 


BSI 


L 


MLCTR 


GO TO LOG CONTROL RT 


80123660 
80123670 






0555 





70FB 




MLLOG 

* 


MDX 




MF01L 




80123680 

80123690 

- 80123700 

80123710 














* 














0556 





6700 


0000 


XDXAL 

* 


LDX 


L3 


*-* 


XR3=PID TABLE ENTRY ADDR 


80123720 
80123730 






0558 





7301 






MDX 


3 


1 


POINT TO NEXT ENTRY 


80123740 






0559 





6BFD 




* 


STX 


3 


XDXAL+1 


SAVE FOR NEXT CALL 


80123750 
80123760 






055A 





C300 






LD 


3 





FETCH PID TABLE ENTRY 


80123770 






055B 





4C98 


012D 


* 


BSC 


I 


START, ♦- 


BR IF END OF PID TABLE 


80123780 
80123790 






055D 





C780 


0000 




LD 


13 





FETCH PROGRAM PID 


80123800 






055F 





F011 






EOR 




X0XS2 


SET/RESET XEQ FLAG 


80123810 




DATE 


28FEB66 01JUL66 


04N0V66 


03JUL68 14N0V69 


PROG ID 


0801-2 


EC NO. 


415120 415178 


415233 


411944 431319 


PAGE 


18 



0560 6700 


0556 




LDX 


L3 


XDXAL 


0562 6F00 


032 A 




STX 


L3 


MLSCF+3 


0564 4C90 


012D 


* 


BSC 


I 


START, - 


0566 1002 




SLA 




2 


0567 1803 






SRA 




3 


0568 E808 






OR 




XDXS2 


0569 C 1807 






SRA 




7 



056A 4090 
056B 7039 



056C 0002 
056D 0000 
056E 0000 
056F 0000 

0570 C 0000 

0571 0000 

0572 0000 



BSI 



MDX 



MF01 



MEND4 



SET MON MLSCF FOR NEXT PGM 
BR IF PROG ALREADY XEQ/DXQ 



SET XEQ/DXEQ BIT 



XEQ OR DXEQ PROGRAM 



RETURN TO POLLING RT 



* 

MLIO DC /0002 

XDXS1 DC *-* 

MMIDL DC *-* 

MODI DC *-* 

M0D2 DC *-* 

* 

XDXS2 DC *-* 

AREA1 DC *-* 

* 

♦a******************************************** 

A********************************************* 

* RETURN TO LOADER 

* THIS SECTION CONSISTS OF TWO SUBROUTINES 
* 

THIS SECTION IS ENTERED WHEN THE RETURN TO 
LOADER OPTION (MON FUNCTION 00 SWT 9) IS 
SELECTED. THIS SECTION CALLS ON MSI TO 
INITIALIZE THE MONITOR AND PRINT THE C003 
MSG, THEN HALTS AT WAIT 4 FOR PROGRAM LOAD 
OPTION SELECTION. WHEN START IS PRESSED 
THE DE SWS ARE READ, THE LOAD OPTIONS ARE 
STORED AND CONTROt IS XFER TO THE LOADER. 



0573 

0575 



4400 033C 
C003 



0576 3004 



* LOAD 

* 
* 
* 
* 
* 
* 
* 
* 

* W6 
* 

* 
* 
* 
* 
* 
* 

Lrtvc 

C003 

* 

WT4 

* 



THIS SECTION IS ENTERED FROM POINTS IN THE 
MONITOR WHERE A RETURN TO THE LOADER IS 
REQUIRED TO LOAD MORE PROGRAMS. IF PAPER 
TAPE IPL IS BEING USED THIS SECTION WILL 
HALT AT WAIT 6 TO ALLOW PLACING TAPE IN THE 
READER. WAIT 6 IS NOP-ED FOR CARD IPL OR 
DIMAL INPUT. 



0577 
0579 



OCOO 03DE 
C400 03D9 



057B D01E 



057C 
0570 

057E 
057F 
0581 

0582 
0583 



1008 
D01D 

1010 

D400 0070 

DOFO 

C017 

EC 00 049D 



BSI 
DC 

WAIT 

XIO 
LD 

STO 

SLA 
STO 



SLA 
L0AD1 STO 

STO 
* 
L0AC2 LD 

OR 



MSI 
/C003 

/4 

MI0C4 
MDES 

LDADR 

8 
MODE 

16 

RLBA+1 
AREA1 

LDADR 
MLD2 



INITIALIZE MONITOR AND 
* PRINT C003 MSG 

NORMAL WAIT 4 

READ DE SWS 
FETCH OE SWS 

SAVE LOAD ADR 6 LD 6 GO SW 



SAVE MODE 



NOP-NOP IF PT OR DIMAL IPL 



DATE 

EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



80123820 
80123830 
80123840 
80123850 
80123860 
80123870 
80123880 
80123890 
80123900 
80123910 
80123920 
80123930 
80123940 
80123950 
80123960 
80123970 
80123980 
80123990 
80124000 
80124010 
80124020 
80124030 
80124040 
80124050 
80124060 
80124070 
80124080 
80124090 
80124100 
80124110 
80124120 
80124130 
80124140 
80124150 
80124160 
80124170 
80124180 
80124190 
80124200 
80124210 
80124220 
80124230 
80124240 
80124250 
80124260 
80124270 
80124280 
80124290 
80124300 
80124310 
80124320 
80124330 
80124340 
80124350 
80124360 
80124370 
80124380 
80124390 
80124400 
80124410 
80124420 
80124430 
80124440 
80124450 
80124460 
80124470 
80124480 
80124490 



PROG ID 
PAGE 
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0585 D400 0125 

0587 61F0 

0588 1010 

0589 D500 0285 
058B 7101 
058C 70FB 

058D 6050 



058E C 67C0 0489 
0590 6F00 0003 



0592 3006 



0593 C007 

0594 4C10 O050 

0596 7400 0070 

0598 700C 

0599 70E8 

059A 0000 
059B 0000 



STO 



NLOC 



L0AD3 


LDX 


1 


-16 




SLA 




16 




STO 


LI 


MPIDT+17 




MDX 


1 


1 




MDX 




L0AD3+1 


* 










LDX 




LDR 


* 
















* 








W6 


LDX 


L3 


LSCD 




STX 


L3 


3 


* 








WT6 


WAIT 




/6 


* 








* 










LD 




MODE 




BSC 


L 


LDR,- 


* 










MDX 


L 


RLBA+1 


WT6A 


MDX 




MEND4 


* 









SET UP LOADING ADDRESS 



CLEAR PID TABLE 



RETURN TO LOADER 



SET UP TO XFER TO START 

* OF PROG WHEN ALL LOADED 

NORMAL WAIT 6 

* NOP IF NOT PT IPL 

RETURN TO LOADER 
IF OVERLAP MODE 



NOP IF DIMAL OR PT IPL 



059C 6780 032E 



059E 
05A0 
05A1 

05A3 

05A5 

05A7 
05A8 
05A9 



C400 0320 
100B 
4C10 05 A 7 

4780 0008 

4C80 012D 

C300 
1808 
4400 04FB 



MDX 



L0A02 



LOAD MODE IND 



LDADR DC *-* 

MODE DC *-* 

* 

********************************************** 

******************************* *************** 

* MONITOR END ROUTINE 

* ***MEND*** 
********************************************** 
********************************************** 

* THIS ROUTINE CONTAINS THE CONTROL REQUIRED TO 

* EITHER LOOP OR NOT LOOP AN INDIVIDUAL PROGRAM. 

* WHENEVER A USER PROGRAM HAS COMPLETED A PASS 
THRU THE PROGRAM, CONTROL IS TRANSFERED TO THIS 

THIS ROUTINE THEN MUST 



* 

* ROUTINE 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

MEND 

* 



1. TRANSFER CONTROL BACK TO THE USER 
LOOP PROGRAM ADR (LPA) IF THE LOOP 
PROGRAM SWITCH IS ON. IF THE LOOP 
PROGRAM SWITCH IS NOT ON THEN, 

2. DE-EXECUTE THE USERS PROGRAM. 

3. TRANSFER TO THE LOADER IF THE BOOT- 
STRAP MODE SWITCH IS ON. 

4. TRANSFER TO THE MONITOR CONTROL 
SECTION FOR OVERLAP MODE OPERATION. 



LDX 13 MATOO 



LD 

SLA 

BSC 



SWO 

11 

MEND1,- 



BSI 13 8 



MEN04 BSC 

* 

MEND1 LD 
SRA 
BSI 

* 



I START 

3 

8 
L MF01 



XR3=ADDR OF PROGRAMS PST 



FETCH MON PROG CONT OPTION 



BR IF NOT LOOP PROGRAMS 



GO TO PROG INITL RTN 



RETURN TO CCNT RTN 



FETCH PID 
DXEQ PROGRAM 



80124500 

80124510 

80124520 

80124530 

80124540 

80124550 

80124560 

80124570 

80124580 

80124590 

80124600 

80124610 

8C124620 

80124630 

80124640 

80124650 

80124660 

80124670 

8C124680 

80124690 

80124700 

80124710 

80124720 

80124730 

80124740 

80124750 

8C124760 

8C124770 

80124780 

80124790 

80124800 

80124810 

80124820 

80124830 

80124840 

80124850 

80124860 

80124870 

80124880 

80124890 

80124900 

80124910 

80124920 

80124930 

80124940 

80124950 

80124960 

80124970 

80124980 

80124990 

8C125000 

80125010 

80125020 

80125030 

80125040 

8C125050 

80125060 

80125070 

80125080 

80125090 

80125100 

80125110 

80125120 

80125130 

80125140 

8C125150 

80125160 

80125170 



05AB COEF 
05AC 4C90 012D 

05AE 4400 033C 
05B0 056C 

05B1 70DC 



05B2 

05B3 

05B4 
05B5 

05B6 
05B8 
05B9 

05BB 
05BD 
05BF 

05C1 

05C2 

05C3 
05C5 
05C6 



0000 

0814 

COFO 
18D0 

OCOO 030C 

DO 11 

4C08 05C2 

C480 032E 
F400 0133 
4C18 05C3 

C008 

3007 

D400 0133 

C802 

4CC0 05B2 



LD 




MODE 


BSC 


I 


START, 


BSI 


L 


MSI 


DC 




ML 10 



MDX 



W6 



RETURN TO POLL 

* IF OVERLAP MODE 

INITIALIZE MONITOR AND 

* PRINT DXEQ MESSAGE 

RETURN TO LOADER 



************************* ********************* 
********************************************** 

* INTERNAL ERROR ROUTINE 

* ***ILTER*** 
********************************************** 

********************************************** 

* THIS ROUTINE IS ENTERED AS A RESULT OF SOME 
INTERNAL INTERRUPT. ONE OR MORE MACHINE ERROR 
CONDITIONS MAY GENERATE AN INTERRUPT BRANCH TO 
THIS ROUTINE. THESE ERRORS ARE 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

ILTER DC 

*. 



ERROR ILSW BIT INVALID OP CODE 

1 PARITY ERROR 

2 STORAGE PROTECT 

3 CAR CHECK 

MANY OF THE FUNCTION TEST PROGRAMS GENERATE 
INTERNAL ERROR INTERRUPTS. IF A PROGRAM EXPECTS 
TO CAUSE AN INTERNAL INTERRUPT IT PLACES ITS 
PID IN CRCK. THIS ROUTINE WILL THEN TRANSFER 
CONTROL BACK TO THE USER WHEN THE ERROR OCCURS. 

IF THE ERROR IS AN INVALID OP CODE OR IS NOT 
PROGRAM GENERATED, THIS ROUTINE WILL HALT WITH 
THE FOLLOWING CONTENTS IN THE REGISTERS 

B REGISTER = /3007 

A REGISTER = ERROR ILSW 

Q REGISTER = I-COUNTER WHEN ERROR OCCURED 

WAIT 7 MAY BE NOP-ED TO ALLOW HIGH SPEED 
OPERATION FOR SCOPING. 

DEPRESSING THE PROGRAM START KEY WILL CAUSE THE 
PROGRAM TO CONTINUE. 



05C8 0000 0000 



* 
EWT7 

* 



* 
ERAQ 



*-* ENTRY 

STD ERAQ SAVE A AND Q 

LD ILTER SAVE ERROR ADDRESS 

RTE 16 IN Q REG 

XIO L ILSW SENSE ILSW 

STO TILSW SAVE ILSW 

BSC L EWT7.+ BR IF OP CODE CHECK 

LD I MATOO CK IF INTERRUPT WAS 

EOR L CRCK EXPECTED BY USER PROGRAM 

BSC L EWT7+1,+- BR IF INTRP EXPECTED 

LD TILSW FETCH ILSW 

WAIT /7 ERROR WAIT 7 

STO L CRCK CLEAR INTRP EXPECTED IND 

LDD ERAQ RESTORE A AND Q 

BOSC I ILTER RETURN 

DEC *-* A AND Q STORAGE 



80125180 

80125190 

80125200 

80125210 

80125220 

80125230 

80125240 

80125250 

80125260 

80125270 

80125280 

80125290 

80125300 

80125310 

80125320 

80125330 

80125340 

80125350 

80125360 

80125370 

80125380 

80125390 

80125400 

80125410 

80125420 

80125430 

80125440 

80125450 

80125460 

8012 5470 

80125480 

80125490 

80125500 

80125510 

80125520 

80125530 

80125540 

80125550 

80125560 

80125570 

80125580 

80125590 

80125600 

80125610 

80125620 

80125630 

80125640 

80125650 

80125660 

80125670 

80125680 

80125690 

80125700 

80125710 

80125720 

80125730 

80125740 

80125750 

80125760 

80125770 

80125780 

80125790 

80125800 

80125810 

80125820 

80125830 

80125840 

80125850 



DATE 
EC NO. 
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05CA 0000 



ILSW STORAGE 



05CB 0000 

05CC C 69C8 
05CD 6780 05CB 

05CF C780 0001 
05D1 B038 
05D2 7005 
05D3 702D 

05D4 6500 0000 
0506 4F00 0002 

05D8 4032 
05D9 C480 060F 
05DB E047 
05DC 4C20 05EE 

05DE 6580 062 F 
05E0 C028 
05E1 1100 
05E2 4C28 05EE 

05E4 7301 



05E5 
05E7 



C480 0628 
0780 0001 



0569 C301 
05EA 8071 
05EB 4041 

05EC 7301 
05ED 70E1 



IS 



TILSW DC *-* 

* 

******* ************************** ************* 

********************************************** 

* MONITOR REQUEST DEVICE ROUTINE 

* **REQDV** 

********************************************** 
********************************************** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

RQDV 

* 



THIS ROUTINE IS USED BY ALL USER PROGRAMS 
AND THE MONITOR TO REQUEST THE USE OF AN 
I/O DEVICE AND/OR CHANNEL ASSOCIATED WITH 
THE DEVICE. THE ROUTINE WILL DETERMINE IF 
THE DESIRED DEVICE IS AVAILABLE FOR USE 
ANO, IF A CHANNEL DEVICE, IF THE CHANNEL 
FREE OR BEING USED BY SOME OTHER DEVICE 
SHARING IT. THIS ROUTINE PROVIDES THE 
CONTROL REQUIRED FOR THE MONITOR PROGRAM 
AND FUNCTION TESTS TO SHARE DEVICES. IT ALSO 
PROVIDES THE VERY IMPORTANT FUNCTION OF 
LOGICALLY LOCKING OUT ONE OR THE OTHER OF TWO 
OR MORE DEVICES SHARING THE SAME CHANNEL. 
FOR THIS ROUTINE TO PROVIDE ITS FUNCTIONS 
THE USER CALLS... 



BSI 

DC 

DC 

DC 

DC 



REQDV 




ADRS 


BUSY RETURN 


ADRS 


DDEF 


ADRS 


DVA 


ADRS 


TERMINATOR 



DC 

STX 
LDX 



I RGDV2+1 
13 RQDV 



RQDV1 LO 
CMP 
MDX 
MDX 



13 



* 
RQDV2 

* 
RQDV3 



LDX 
BSC 

BSI 
LO 
AND 
BSC 

LDX 
LD 
SLA 
BSC 

MDX 

LD 
STO 

LD 

A 

BSI 

MDX 

MDX 



LI 
L3 



II 



1 

KFFFF 
RQDV3 
TRP24-2 

*-* 
2 

DVAD 
DVAD1+1 
DVAD4+1 
DBSY.Z 

STBSY+2 
MCH 

DBSY.Z+ 



3 1 



I 
13 



DVAD3+1 
1 

1 

MONE 

STBSY 

1 
RQDV1 



SAVE XR1 
XR3=BUSY ADDRESS 

FETCH DDEF 

DDEF OK = ZERO OR PLUS 
ERROR DDEF MINUS 

RESTORE XR1 — DDEF=TERM 
NORMAL RETURN 

GO FETCH ILT ENTRY 



BR IF DEVICE BUSY 



FETCH CHAN BUSY WORD 
BR IF CHANNEL BUSY 



FETCH AREA CODE AND MOD 
STO AREA CODE AT DVA 

FETCH DVA 

GO SET DEVICE BUSY 



GO GET NEXT DDEF 



DEVICE BUSY 



8C125860 
80125870 
80125880 
80125890 
80125900 
80125910 
80125920 
80125930 
80125940 
80125950 
80125960 
80125970 
80125980 
80125990 
80126000 
80126010 
80126020 
80126030 
80126040 
80126050 
80126060 
80126070 
80126080 
80126090 
80126100 
80126110 
80126120 
80126130 
80126140 
80126150 
80126160 
80126170 
80126180 
80126190 
80126200 
80126210 
80126220 
80126230 
80126240 
80126250 
80126260 
80126270 
80126280 
80126290 
80126300 
80126310 
80126320 
80126330 
80126340 
80126350 
80126360 
80126370 
80126380 
80126390 
80126400 
80126410 
80126420 
80126430 
80126440 
80126450 
80126460 
80126470 
80126480 
80126490 
80126500 
80126510 
80126520 
80126530 



05EE 6580 C5CB 
05F0 C580 0001 
05F2 4C10 05FB 

05F4 C101 
05F5 D001 

05F6 404F 
05F7 0000 
05F8 C 0308 

05F9 7102 
05FA 70F5 

05FB 6580 C5D5 
05FD 6780 05CB 
05FF 4F80 0000 



0601 C480 032E 

0603 3024 

0604 70FE 



DBSY LDX 
LD 
BSC 

* 

LD 
STO 

* 

BSI 

DC 

DC 

* 

MDX 
MDX 

* 

DBSY1 LDX 
LDX 
BSC 



II RCDV 

II 1 

L 0BSY1,- 

1 1 

*+l 

RLDV 

*-* 

MK15 

1 2 

DBSY+2 

II RQDV2+1 
13 RQDV 
13 



0605 
0606 
0607 
0608 
0609 
060A 



02DD 
OOOF 
0004 
8000 
0000 
FFFF 



060B 0000 
060C 1888 
060D D001 

060E 6500 0000 
0610 C500 03E5 

0612 F0F2 

0613 4C18 0601 



TRP24 

* 

MTR28 

MOOOF 

M0004 

M8000 

MCH 

KFFFF 

* 

* 
* 
DVAD 



* 
DVAD1 



DVAD2 

* 



0615 





FOEF 


0616 





80F0 


0617 





D0F7 


0618 





1010 


0619 





1084 


061A 





D008 


061B 





FOEA 


061C 





80F2 


061D 





803E 


061E 





D009 


061F 





1010 


0620 





1084 


0621 





DOOD 



0622 65C0 0000 

0624 C0E3 

0625 1900 

0626 DOFC 

0627 C400 0000 
0629 4C18 0601 

062B 4C80 060B 



* 
DVAD4 



* 
DVAD3 



LD 

WAIT 

MDX 

DC 
DC 
DC 
DC 
DC 
DC 



DC 

SRT 

STC 

LDX 
LD 
EOR 
BSC 

EOR 

A 

STO 

SLA 
SLT 

STO 

EOR 

A 

A 

STO 

SLA 
SLT 
STO 

LDX 

LD 

SRA 

STO 

LD 
BSC 

BSC 



MATOO 

/24 

TRP24 

TRP28-1 

/OOOF 

/0004 

/8000 

*-* 

/FFFF 



XR1=BUSY ADDRS 

FETCH DDEF 

BR IF NOT APPROVED 

FETCH DDEF ADDRS 
SET IN RELEASE CALL 

RELEASE DEVICE 



GO CK FOR MORE TO RELEASE 
RESTORE XR1 
BUSY RETURN 



ERROR TRAP 24 

* REQUEST DEVICE ERROR 



CALCULATE ILSW TA8LE ADDRESS 



*_* 

8 

DVAD1+1 

LI *-* 
LI IXFV+3 

MTR28 
L TRP24-2.+ 

MTR28 
M0004 
DVAD1+1 

16 

4 

DVAD4+1 

MOOOF 

DVAD1+1 

MONE 

DVA03+1 

16 

4 

STBSY+2 

LI *-* 
M8000 
1 

DVAD4+1 

L *-* 

L TRP24-2.+- 



SAVE INTERRUPT LEVEL 

XR1=INT LEVEL 
LD INT TBL ADDRS 

- BR IF NO INT TBL ADDRS 



SV INT LEV TBL ADDRS 

BRING IN ILSW ENTRY 
COMPLEMENT ILSW 

SAVE TABLE ENTRY ADDRS 



BRING IN CHAN ENTRY 
SAVE CHANNEL 

XR1=ILSW 



SAVE DEVICE BUSY BIT 

FETCH INT LEVEL TBL ENTRY 
BR IF NO ILT ENTRY , 



DVAD 



80126540 
80126550 
80126560 
80126570 
80126580 
80126590 
80126600 
80126610 
80126620 
80126630 
80126640 
80126650 
80126660 
80126670 
80126680 
80126690 
80126700 
80126710 
80126720 
80126730 
80126740 
80126750 
80126760 
80126770 
80126780 
80126790 
80126800 
80126810 
80126820 
80126830 
80126840 
80126850 
80126860 
80126870 
80126880 
80126890 
80126900 
80126910 
80126920 
80126930 
80126940 
80126950 
80126960 
80126970 
80126980 
80126990 
80127000 
80127010 
80127020 
80127030 
80127040 
80127050 
80127060 
80127070 
80127080 
8C127090 
80127100 
80127110 
80127120 
80127130 
80127140 
80127150 
80127160 
80127170 
80127180 
80127190 
80127200 
80127210 



DATE 
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062D OOCO 
062E 6500 0000 
0630 1890 



0631 C780 0000 

0633 F0D4 

0634 0780 0000 

0636 C480 060F 

0638 FOEA 

0639 D480 060F 
063B 1090 
063C D480 0628 

063E C0C9 
063F 1900 

0640 4C04 0644 

0642 F0C6 

0643 D0C5 

0644 4C80 062D 



* 

* 

* 

STBSY 



SET/RESET APPROVED AND CHAN 8ITS 



REQ 



DC 
LDX 
SRT 
DEV 



LD 

EOR 

STO 

LD 

EOR 

STO 

SLT 

STO 

LD 

SRA 

BSC 

EOR 
STO 



*-* 

*-* 

16 

XFER VECT 



LI 



XR1=CHAN 
SAVE ACC. 
AODR. REL DEV 



IN Q 
AREA 



CODE £ MOD 



13 



13 





M8000 


DVAD1+1 

DVAD4+1 

DVAD1+1 

16 

DVAD3+1 

M8000 



* + 2,E 

MCH 
MCH 



SET OR RESET DDEF 
* APPROVED BIT 



SET/RESET DEV BUSY BIT 
RESTORE ACC. 



BR IF NON-CHANNEL DEVICE 



SET OR RESET CHANNEL 
* BUSY BIT IN MCH WORD 



THE USER CALLS 




BSI I RELDV 




DC ADDRS 


DDEF 


DC ADDRS 


TERM 



0646 0000 

0647 6908 

064 8 6780 0646. 

064A C780 0000 

064C BOBD 

064D 700C 

064E 7004 



BSC I STBSY 

* 

********************************************** 

********************************************** 

* MONITOR RELEASE DEVICE 

* *** RELDV*** 
********************************************** 
********************************************** 

* THIS ROUTINE PREFORMS THE INVERSE FUNCTION 

* OF THE RECDV ROUTINE DESCRIBED ABOVE. TO 

* USE THIS ROUTINE 
* 
* 
* 
* 
* 

* THIS ROUTINE WILL 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
RLDV 



DCHECK THAT ALL DDEF(S) SPECIFIED 
IN THE CALL HAVE BEEN PREVIOUSLY 
APPROVED (80=1). 

2) ALL APPROVED DDEF(S) WILL CAUSE 
A LOGIC SWAP. THE MONITOR FETCHS 
BACK THE AREA CODE FROM THE DVA 
SPECIFIED IN THE REQUEST CALL. 
AND RESTORES IT TO THE ORIGINAL 
INTERRUPT LEVEL AND BIT POSITION 
SPECIFIED BY THE APPROVED DDEF. 

3)IF A CHANNEL IS ASSOCIATED WITH 
THE DEVICE IT IS SET NOT BLSY. 



RLDVl 



DC 
STX 

LDX 

LD 

CMP 

MDX 

MDX 



13 
13 



*-* 
RLDV2+1 

RLDV 



KFFFF 

RL0V4 

RLDV3 



SAVE XR1 

XR1=DDEF ADDRS 
FETCH DDEF 

DEVICE ALREADY RELEASED 
DDEF OK, MAKE SWAPS 



80127220 
80127230 
80127240 
80127250 
80127260 
80127270 
80127280 
80127290 
80127300 
80127310 
80127320 
80127330 
80127340 
80127350 
80127360 
80127370 
80127380 
80127390 
8C127400 
80127410 
80127420 
80127430 
80127440 
80127450 
80127460 
80127470 
80127480 
80127490 
80127500 
80127510 
80127520 
80127530 
8C127540 
80127550 
80127560 
80127570 
80127580 
80127590 
80127600 
80127610 
80127620 
80127630 
80127640 
80127650 
80127660 
80127670 
80127680 
80127690 
80127700 
80127710 
80127720 
80127730 
80127740 
8C127750 
80127760 
80127770 
80127780 
80127790 
80127800 
8C127810 
80127820 
80127830 
8C127840 
80127850 
80127860 
8C127870 
80127830 
80127890 



064F 6500 0000 
0651 4FC0 0C01 

0653 F0B4 

0654 40B6 

0655 9006 

0656 C D001 

0657 C400 0000 
0659 40D3 

065A 7301 
065B 70EE 



065C 0001 



065D 0000 
065E 6780 065D 



RESTORE XR1 — DDEF=TERM 
* RETURN TO USER 

RESET APPROVED BIT 
GO TO FIND ILT ADDRS 



SAVE OVA 

FETCH AREA CODE AND MOD 
RESET CHAN BUSY 



GO CK FOR MORE DDEF'S 

* 

* 

MONE DC /0001 

* 

********************************************** 

********************************************** 

* MONITOR ERROR ROUTINE 

* ***ERRT*** 
********************************************** 
********************************************** 

* THIS ROUTINE IS USED BY ALL USER PROGRAMS FOR 
ERROR CONTROL. TO USE THIS ROUTINE THE USER USES 
THE FOLLOWING CALLING SEQUENCE 



RLDV2 
* 


LDX 
BSC 


LI 
L3 


*-* 

1 


RLDV3 
* 


EOR 
BSI 




M8000 
DVAD 




S 
STO 




MONE 
*+l 




LD 
BSI 


L 


*-* 
STBSY 


RLDV4 


MDX 
MDX 


3 


I 
RLDVl 



* 
* 
* 

* BSI I 

* DC 

* DC 

* DC 
* 

* THIS ROUTINE EXAMINES THE VARIOUS FUNCTION 

* SWITCH OPTIONS AVAILABLE TO THE OPERATOR 
* 

1) BYPASS ERROR PRINTOUT SWITCH 



ERROR 

ADRS ERROR MESSAGE STRING 

ADRS BUSY RETURN 

ADRS LOOP ON ERROR 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ERRT 



IF THIS SWITCH IS OFF, THIS ROUTINE 
SETS THE MESSAGE ADDRESSES IN THE 
LOG ROUTINE CALLING SEQUENCE, THEN 
MAKES THE CALL ON THE LOG ROUTINE. 

**NOTE** 

IF THE LOG ROUTINE IS BUSY, THE 
ERROR RCUTINE WILL GET A BUSY RE- 
TURN. THE ERROR ROUTINE, IN TURN, 
WILL GIVE A USER BUSY RETURN. 

2) HALT ON ERROR FUNCTION SWITCH 

IF ON, THE ERRCR ROUTINE WILL TRANS- 
FER TO THE HALT ROUTINE. 

3) LOOP ON ERROR FUNCTION SWITCH 

A) IF ON, TRANSFER TO THE USERS LOOP 
ON ERROR ADDRESS. 

B) OTHERWISE, RETURN TO THE NEXT 
SEQUENTIAL INSTRUCTION. 



DC 



LDX 13 ERRT 



XR3=CALL ADDRESS 



80127900 
80127910 
80127920 
80127930 
80127940 
80127950 
80127960 
80127970 
80127980 
80127990 
80128000 
80128010 
80128020 
80128030 
80128040 
80128050 
80128060 
80128070 
80128080 
80128090 
80128100 
80128110 
80128120 
80128130 
80128140 
80128150 
80128160 
80128170 
80128180 
80128190 
80128200 
80128210 
80128220 
80128230 
80128240 
80128250 
80128260 
80128270 
80128280 
80128290 
80128300 
80128310 
80128320 
80128330 
80128340 
80128350 
80128360 
80128370 
80128380 
80128390 
80128400 
80128410 
80128420 
80128430 
80128440 
80128450 
80128460 
80128470 
80128480 
80128490 
80128500 
80128510 
8C128520 
80128530 
80128540 
80128550 
80128560 
80128570 



DATE 
EC NO. 
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415233 
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411944 
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0660 C300 

0661 DOOC 

0662 C301 

0663 DOOB 

0664 C302 

0665 D01C 

0666 7303 

0667 6B1C 

0668 C400 0320 
066A 1882 
066B 4C04 067B 

066D 4017 
066E 0000 
066F 0000 

0670 067B 

0671 C400 0330 
0673 4C18 04AE 

0675 6700 0675 
0677 6F00 032 B 

0679 4C00 04AE 

067B C400 0320 
0670 1881 
067E 4404 0315 

0680 1882 

0681 4C04 0000 

0683 4C00 0000 



EMS 



LD 
STO 

LD 
STO 

LD 
STO 

MDX 
STX 

LD 

SRT 

BSC 

BSI 

DC 

DC 

DC 

LD 
BSC 




EMS 

1 
EMS+1 

2 
LPER+l 

3 
ERNOL+1 

swo 

2 
ERRT2.E 

LG 
*-* 
*-* 
ERRT2 

MAT02 
MCON.+- 



STO LOG STRING ADDRS 



STO BUSY RETURN ADDRS 



STO LOOP ERROR ADDRS 



STO NORMAL RETURN ADDRS 

CHECK 

MON PROG CONTROL OPTIONS 
BR IF BYPASS ERROR PRINT 

GO TO LOG ROUTINE 
LOG STRING ADDRS 
BUSY RETURN ADDR 
TERMINATION ADDRS 



BR IF LOG NOT BSY 



L3 ERRT3 
L3 MLSCF+4 

L MCON 

L SWO 

1 
L HALT.E 

2 

L *-*,E 

L *-* 



ERRT3 LDX 
STX 
BSC 

ERRT2 LD 

SRT 

BSI 
* 

SRT 
LPER BSC 

ERNOL BSC 

* 

********************************************** 

********************************************** 

* MONITOR LOG ROUTINE 

* **LOG *** 

********************************************** 
********************************************** 

* THIS ROUTINE IS USED BY BOTH THE USER PROGRAMS 
AND THE MONITOR FOR ALL OUTPUT FUNCTIONS. TO 
USE THIS ROUTINE THE USER CALLS 



CHECK 

CONTROL OPTIONS 
BR IF HALT ON ERROR 

CHECK LOOP 

BR IF LOOP ON ERROR 

NORMAL RETURN 



BSI I LOG 

DC ADRS MESSAGE STRING 
DC ADRS BUSY RETURN 
DC ADRS TERMINATION 

THIS ROUTINE CONSISTS OF 6 SUBROUTINES. THE 
FUNCTION OF EACH OF THESE ROUTINES IS AS FOLLOWS 

LABEL* FUNCTION 
********************************************* 

* 

LG * LOG CONTROL SUBROUTINE, THIS ROUTINE 

* DETERMINES IF THE LOG AREA OR THE 

* OUTPUT DEVICE IS BUSY. DETERMINES 

* IF THE LINE SHOULD BE INDENTEO, IF NOT 

* XFERS TO THE HEX RT FOR CONVERSION 

* OF P1D, MID, RID, BAD. DETERMINES IF 

* MODIFIERS ARE TO BE CONVENTED IN HEX 

* OR DECIMAL AND XFERS TO THE APPOPRIATE 

* CONVERSION ROUTINE. DETERMINES IF THE 

* ENGLISH PRINT SECTIONS OF MONITOR ARE 



80128580 
80128590 
80128600 
80128610 
80128620 
80128630 
80128640 
80128650 
8012 8660 
80128670 
80128680 
80128690 
80128700 
80128710 
80128720 
80128730 
80128740 
80128750 
80128760 
80128770 
80128780 
80128790 
80128800 
80128810 
80128820 
80128830 
80128840 
80128850 
80128860 
80128870 
80128880 
80128890 
80128900 
80128910 
80128920 
80128930 
80128940 
80128950 
80128960 
80128970 
80128980 
80128990 
80129000 
80129010 
80129020 
80129030 
80129040 
80129050 
80129060 
80129070 
80129080 
80129090 
80129100 
80129110 
80129120 
80129130 
80129140 
80129150 
80129160 
80129170 
80129180 
80129190 
80129200 
80129210 
80129220 
80129230 
80129240 
80129250 



0685 0000 

0686 7400 0330 

0688 700B 

0689 C400 033B 
068B 4C28 06A0 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

LG 

* 



HEX 



DEC 



LLOA 



LGOP 



MDVA 



DC 



068D 
068F 
0690 
0691 
0692 
0693 



4400 05CB 

0694 

033B 

07CE 

0308 

700C 



0694 6780 0685 
0696 4F80 0001 

0698 6500 0000 
069A 6600 0000 

069C 7403 0685 
069E 4C80 0685 

06A0 69F8 
06A1 6AF9 

06A2 6700 0698 
06A4 6F00 079F 

06A6 6C00 07A3 



LG1 



IN CORE. IF SO XFERS TO THE ENGLISH 
PRINT ROUTINE, IF NOT XFERS TO LGOP TO 
PRINT THE HEX/DEC MESSAGE. 

HEX CONVERSION ROUTINE, PERFORMS CON- 
VERSIONS FOR EACH WORD IN HEX 

DECIMAL CONVERSION ROUTINE, PERFORMS 
CONVERSIONS IN EITHER SINGLE OR 
DOUBLE PRECISION FOR DECIMAL MODIFIERS 

LOAD LOG OUTPUT AREA, THIS ROUTINE 

PLACES THE OUTPUT CODE CHARACTERS 

IN THE LOG OUTPUT AREA AFTER CONVERT. 

LOG OUTPUT ROUTINE, THIS ROUTINE IS 
ENTERED FROM THE LOG CONTROL ROUTINE 
OR THE ENGLISH PRINT ROUTINE FOR EACH 
LINE TO BE PRINTED. THIS ROUTINE 
CHECKS THE LOG DEVICE FOR A READY 
CONDITION AND ISSUES THE FIRST WRITE 
COMMAND TO THE LOG DIVICE. 

MONITOR DEVICE VECTOR ADDRESS ROUTINE, 
THIS ROUTINE SERVICES THE INTERRUPTS 
FROM THE LOG DEVICE AND CONTINUES 
ISSUING WRITE COMMANDS UNTIL ONE 
COMPLETE LINE HAS BEEN PRINTED. AT 
THE END OF THE LINE A MONITOR MLSCF 
ENTRY IS SET TO THE ROUTINE WHICH 
CALLED THE LGOP SUBROUTINE. 

*-* 



MDX 
MDX 

* 

LO 
BSC 

* 

BSI 

DC 

DC 

DC 

DC 

MDX 

* 

LGBSY LDX 
BSC 

* 

LGSX1 LDX 

LGSX2 LDX 

* 

MDX 

LRTRN BSC 

* 



STX 
STX 

LDX 
STX 



L MAT02 
LGBSY 

L MED1 
L LG1.+Z 

L RCDV 
LGBSY 
MED1 
MDVA 
MK15 
LG1 

13 LG 
13 1 

LI *-* 
L2 *-* 

L LG,3 
I LG 

1 LGSXl+l 

2 LGSX2+1 

L3 LGSX1 
L3 LG0P5+1 



CHECK IF LOG AREA 
* IS BUSY 



REQUEST OUTPUT DEVICE 



STX L M12SW 



06A8 
06A9 
06AA 
06AC 



61D4 
C07B 

D500 0050 
7101 



LG2 



LDX 

LD 

STO 

MDX 



1 -44 
SPACE 
LI LOWC+45 
1 1 



BUSY RETURN 

RESTORE XR1 
RESTORE XR2 

SET NORMAL RETURN ADDRS 
RETURN TO USER 

SAVE XR1 
SAVE XR2 

SET LGOP RTN 

* RETURN ADDRESS 

SET 1ST/2ND SWITCH 



FILL OUTPUT AREA 
* WITH SPACES 



80129260 
80129270 
80129280 
80129290 
80129300 
80129310 
80129320 
80129330 
80129340 
80129350 
80129360 
80129370 
80129380 
80129390 
80129400 
80129410 
80129420 
80129430 
80129440 
80129450 
80129460 
80129470 
80129480 
80129490 
80129500 
80129510 
80129520 
80129530 
80129540 
80129550 
80129560 
80129570 
80129580 
80129590 
80129600 
80129610 
80129620 
80129630 
80129640 
80129650 
80129660 
80129670 
80129680 
80129690 
80129700 
80129710 
80129720 
80129730 
80129740 
80129750 
80129760 
80129770 
80129780 
80129790 
80129800 
80129810 
80129820 
80129830 
80129840 
80129850 
80129860 
80129870 
80129880 
80129890 
80129900 
80129910 
80129920 
80129930 



DATE 
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06AD 70FC 



06AE 6224 



06 A F 
06B1 
06B2 
06B3 
06B4 



6580 0685 
C100 
D011 
C102 
0400 0332 



06B6 6580 C32E 
06B8 6D00 0331 



06BA C100 
06BB 1002 















06BC 
06B0 
06BE 
06BF 
06C1 
06C2 



1802 

7101 

6921 

6500 033 

D100 

1898 



06C3 6700 0000 



* 
LG3 

* 



06C5 
06C6 
06C7 
06C8 
06C9 
06CB 



C302 
18DC 
1008 
18CC 

F400 0323 
4C18 070E 



06CD C300 
06CE 1808 
06CF 4C20 06E3 

0601 1010 
06D2 D04F 

06D3 C302 
06D4 180C 
0605 F04D 
06D6 4C20 06DA 

06D8 C04E 
06D9 D200 

06DA 4050 

06DB 6580 06C4 
06DD 7102 
06DE 404C 

06DF 6500 0000 
06E1 4049 
06E2 4048 

06E3 622E 



* 
LG4 



06E4 
06E6 
06E7 
06E8 
06E9 



6580 06C4 

C100 

100C 

180C 

4C08 06F7 



06EB D035 

06EC 7103 
06ED C1FE 



* 

LG5 

* 



* 
LG6 



* 
LG7 

* 



MDX 

LDX 

LDX 

LD 

STO 

LD 

STO 

LDX 
STX 

LD 

SLA 

SRA 

MDX 

STX 

LDX 

STO 

SRT 



LD 

RTE 

SLA 

RTE 

EOR 

BSC 

LD 

SRA 

BSC 

SLA 

STC 

LD 
SRA 
EOR 
BSC 

LD 
STO 

BSI 

LDX 
MDX 
BSI 

LDX 
BSI 
BSI 

LDX 

LDX 

LD 

SLA 

SRA 

BSC 

STC 

MDX 
LD 



LG2 
2 LOWC+1 

II LG 

1 
LG3 + 1 

1 2 
L MAT04 

II MATOO 
LI MAT03 

1 

2 

2 
1 1 

1 LG6+1 
LI MAT02 
1 

24 



LDX L3 *-* 



3 2 

28 

8 

12 
L SW3 
L LG1W+- 

3 
8 
L LG7.Z 

16 

LFDSW 

3 2 
12 

MOOOE 
L LG5,Z 

ASTRS 
2 

HEX 

II LG3+1 

1 2 
HEX 

LI *-* 
HEX 
HEX 

2 LOWC+11 

II LG3+1 
1 

12 

12 
L LG9.+ 

MWC 

1 3 
1 -2 



XR2=0UTPUT AREA ADDRESS 

SAVE MSG STRING ADDRESS 
SAVE TERMINATION ADDRS 
XR1 = PR0G PST ADDRS 

FETCH PID 

SET LOG 8USY INDICATOR 

XR3=L0G STRING ADDRS 
FETCH MID 

COMBINE PID AND MID 

BR IF NO PRINT 

CHECK IF THIS LOG CALL IS 
* FOR CONTINUATION LINE 
BR IF CONTINUATION LINE 

SET LINE FEED SWITCH 

BR IF NOT ERROR MSG 

STORE ERROR FLAG 

STORE PID IN LOG AREA 

XR1=L0G STRING ADDRS 

XR1=MID ADDRS 

STO MID IN LOG AREA 

XR1=RID ADDRS 

STO RID IN LOG AREA 

STO RAD IN LOG AREA 

XR2=LCG AREA ADDRS FOR MOD 

XR1=L0G STRING ADDRS 

BR IF NO MODIFIERS 
STORE MODIFIER COUNT 

GO TO DECIMAL CONVERT RTN 



80129940 
80129950 
80129960 
80129970 
80129980 
80129990 
80130000 
80130010 
80130020 
80130030 
80130040 
80130050 
8C130060 
80130070 
80130080 
80130090 
80130100 
80130110 
80130120 
80130130 
80130140 
80130150 
80130160 
80130170 
80130180 
80130190 
80130200 
80130210 
80130220 
80130230 
8C130240 
80130250 
80130260 
80130270 
80130280 
8C130290 
80130 300 
80130310 
80130320 
80130330 
80130340 
80130350 
80130360 
80130370 
80130380 
80130390 
80130400 
80130410 
80130420 
80130430 
80130440 
80130450 
80130460 
80130470 
80130480 
80130490 
80130500 
80130510 
80130520 
80130530 
8C130540 
80130550 
80130560 
80130570 
8C130580 
80130590 
8C130600 
80130610 



06EE 4C04 0741 

06F0 C034 
06F1 4400 0776 

06F3 4037 
06F4 74FF 0721 
06F6 70FC 

06F7 72DD 

06F8 6A28 

06F9 C027 

06FA 1001 

06FB D400 0023 

06FD C024 
06FE 4C20 070C 

0700 C400 0330 
0702 F400 031D 

0704 DO ID 

0705 C400 0135 
0707 4420 FECB 

0709 67C0 0724 
070B 407E 

070C 6323 
070D C 407C 

070E 1010 
070F D400 0330 
0711 C 67C0 0382 
0713 6FO0 032B 

0715 4480 0132 

0717 033B 

0718 C 0308 



BSC L DEC.E 



0719 
071A 
071C 

071D 
071E 



63FD 

C700 072B 
D353 
7301 
70FB 



071F 4C00 079E 



0721 
0722 
0723 
0724 
0725 
0726 
0727 



0000 
0000 
OOOE 
00C2 
2121 
8121 
D6D6 



0728 0000 

0729 0000 
072A 0000 



072B C 0000 

072C 6304 
072D 6F00 07B8 



* 
LG8 



* 
LG9 



LG12 

* 



LG13 



* 
LG10 

* 
LG11 



* 
RSTLO 



* 

* 

MWC 

LFDSW 

MOOOE 

FEED 

SPACE 

CRSPS 

ASTRS 

* 

SVLDR 



LD 
BSI 

BSI 

MDX 
MDX 

MDX 

STX 

LD 

SLA 

STO 

LD 
BSC 

LD 

EOR 

STO 

LD 
BSI 

LDX 
BSI 

LDX 
BSI 

SLA 

STC 
LDX 
STX 

BSI 

DC 

DC 

LDX 

LD 

STO 

MDX 

MDX 

BSC 



DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 



SPACE 
L LLOA 

HEX 

L MWC-1 

LG8 

2 -35 

2 MWC 
MWC 
1 

L LOWC 

LFDSW 
LG10.Z 

MAT02 

PID 

LFDSW 

. ENGLD 

ENG+/FOOO, 



L3 FEED 
LGOP 

3 LOWC 
LGOP 

16 
L MAT02 
L3 MTA 
L3 MLSCF+4 

I RELDV 
MED1 
MK15 

3 -3 

L3 SVLDR+3 
3 LDR+3 
3 1 

RSTLD 

L LG0P5 



*-* 

*-* 

/OOOE 

/0002 

/2121 

/8121 

/D6D6 

*-* 
*-* 
*-* 



* FOR DECIMAL MODIFIERS 



STO SPACE IN OUTPUT AREA 

CONVERT HEX 

* MODIFIERS AND 

* PUT IN LOG AREA 

CALCULATE CHARACTER 

* COUNT IN LOG AREA 

SLA IF 53/NOP IF 43 
SAVE CHAR COUNT 



BR IF NO LINE FEED 

SET LINE FEED FOR 

* NEXT CONTINUATION MSG 

* IF THIS IS MONITOR MSG 

GO TO ENGLISH MSG RTN 
Z IF ENG IS IN CORE 

XR3=MESSAGE ADDRESS 
GO TO PRINT 

XR3=MSG ADDRS 
GO TO PRINT 



RESET LOG BUSY SWITCH 

SET MLSCF ENTRY 

* TO TERM ADDRS RTN 

RELEASE LOG DEVICE 



RESTCRE LOADER 
INSTRUCTIONS THAT WERE 
DESTROYED BY LOG 



RETURN TO USER OR POLL RTN 



LINE FEED WORD COUNT 
SPACE, SPACE 
CARRIER RETURN, SPACE 
*, * 

TEMPORARY 
STORAGE FOR 
LOADER INSTRUCTIONS 



* 

* 

HEX 

* 



DC 



LDX 
STX 



3 4 
L3 MDP 



CONVERT C0UNT=4 



80130620 

80130630 

80130640 

80130650 

80130660 

80130670 

80130680 

80130690 

80130700 

80130710 

80130720 

80130730 

80130740 

80130750 

80130760 

8C130770 

80130780 

80130790 

80130800 

80130810 

80130820 

80130830 

80130840 

80130850 

80130860 

80130870 

80130880 

80130890 

80130900 

80130910 

80130920 

80130930 

80130940 

80130950 

80130960 

80130970 

80130980 

80130990 

8C131000 

80131010 

80131020 

80131030 

80131040 

80131050 

80131060 

80131070 

80131080 

80131090 

80131100 

80131110 

80131120 

80131130 

80131140 

80131150 

80131160 

80131170 

80131180 

80131190 

80131200 

80131210 

80131220 

80131230 

80131240 

80131250 

80131260 

80131270 

80131280 

8C131290 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 
PACE 



0801-2 
23 



DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PROG ID 
PAGE 



0801-2 
23A 
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072F 





6700 


07A5 




LDX 


L3 


TABL 


XR3=CHAR CODE TBL ADDRS 


80131300 










* 










80131980 














* 










80131310 


0765 





8F00 


07CA 


DCV3 


AD 


L3 


DECNT+16 


RESTORE TO POSITIVE 


80131990 






0731 





C100 






LD 


1 





FETCH HEX WORD TO CONVERT 


80131320 


0767 





D850 






STD 




MDP 




80132000 






0732 





1890 




* 


SRT 




16 


PUT IN Q 


80131330 
80131340 


076 8 





C100 




* 


LD 


1 





FETCH CHAR CODE 


80132010 
80132020 






0733 





1010 




HEX01 


SLA 




16 




80131350 


0769 





400C 






BSI 




LLOA 


STORE IN LOG AREA 


80132030 






0734 





1084 






SLT 




4 


GET HEX DIGIT 


80131360 










* 










80132040 






0735 





D001 




* 


STO 




HEX02+1 




80131370 
80131380 


076A 
076 B 






7302 
70F0 






MDX 
MDX 


3 


2 
0CV1 


CHECK FOR EIGHT DECIMAL 
* PLACES CONVERTED 


80132050 
80132060 






0736 





C700 


0000 


HEX02 


LD 


L3 


*-* 


FETCH CHAR CODE 


80131390 










* 










80132070 














* 










80131400 


076C 





6500 


0000 


DCV4 


LDX 


LI 


♦-* 


RESTORE XR1 


80132080 






0738 





40 3D 




* 


BSI 




LLOA 


STORE IN LOG AREA 


80131410 
80131420 


076E 





7101 




♦ 


MDX 


1 


1 


INCRE MODIFIER ADDRS 


80132090 
80132100 






0739 





74FF 


07B8 




MDX 


L 


MDP.-1 


CHECK FOR FOUR 


80131430 


076F 





C0B5 






LD 




SPACE 




80132110 






073 B 





70F7 




* 


MDX 




HEX01 


* CHARACTERS CONVERTED 


80131440 
80131450 


0770 


c 


4005 




* 


BSI 




LLOA 


PUT SPACE IN LOG AREA 


80132120 
80132130 






073C 





C0E8 






LD 




SPACE 




80131460 


0771 





C0C5 






LD 




HEX02+1 


FETCH SING/DBL PREC IND 


80132140 






0730 





4038 


, 


* 


BSI 




LLOA 


PUT SPACE IN LOG AREA 


80131470 
80131480 


0772 
0774 






74FF 
70CC 


0721 




MDX 

MDX 


L 


MWC-1 
DEC 


CHECK IF ALL 

* MODIFIERS CONVERTED 


80132150 
80132160 






073E 





7101 






MDX 


1 


1 


ADVANCE HEX CHAR ADDRS 


80131490 










* 










80132170 






073F 





4C80 


072 B 


* 

* 

* 


BSC 


I 


HEX 




80131500 
80131510 
80131520 
80131530 


0775 





7081 




* 

£ 


MDX 




LG9 


RETURN TO LOG CONTROL RTN 


80132180 
80132190 
80132200 
80132210 






























* 














0741 





4C10 


074C 


DEC 

* 


BSC 


L 


DEC1,- 


BR IF SINGLE PRECISION 


80131540 
80131550 


0776 





0000 




LLOA 

* 


DC 




*-* 




80132220 
80132230 






0743 





1082 






SLT 




2 


CORRECT AND SAVE 


80131560 


0777 





D83E 






STD 




DECNW 


SAVE A AND 


80132240 






0744 





D0F2 




* 


STO 




HEX02+1 


* SINGLE/DOUBLE PREC IND 


80131570 
80131580 


0778 





1890 




* 


SRT 




16 


PUT CODE CHAR IN Q 


80132250 
80132260 






0745 





C101 






LD 


1 


1 


FETCH SECOND HALF 


80131590 


0779 





7400 


07A3 




MDX 


L 


M12SW 


CHECK IF 1ST/2ND 


80132270 






0746 





1890 




* 


SRT 




16 


PUT IN Q 


80131600 
80131610 


077B 





7003 




* 


MDX 




LL0A1 


* CHARACTER 


80132280 
80132290 






0747 





C100 




* 


LD 


1 





FETCH FIRST HALF 


80131620 
80131630 


077C 
077D 






6826 

C200 






STX 

LD 


2 


M12SW 



SET 1ST CHAR NEXT 
FETCH WD FROM LOG AREA 


80132300 
80132310 






0748 





74FF 


0721 




MDX 


L 


MWC.-l 


DECRE WO CNT 


80131640 


077E 





7005 






MDX 




LL0A2 




80132320 






074 A 





7101 






MDX 


1 


1 


INCRE MODIFIER ADDRS 


80131650 










* 










80132330 






074B 





7004 




+ 


MDX 




DEC2 




80131660 
80131670 


077F 
0780 






7201 
1010 




LL0A1 


MDX 
SLA 


2 


1 
16 


INCRE LOG AREA AODRS 


80132340 
80132350 






074C 





1081 




DEC1 


SLT 




1 


CORRECT AND SAVE 


80131680 


0781 





D021 






STO 




M12SW 


SET 2ND CHAR NEXT 


80132360 






074D 





D0E9 




* 


STO 




HEX02+1 


* SING/DBL PREC IND 


80131690 
80131700 


0782 
0783 






C200 
18D0 






LD 
RTE 


2 



16 


FETCH WD FROM LOG AREA 
POSITION TWO CHARACTERS 


80132370 
80132380 






074E 





CI 00 






LD 


1 





FETCH WD TO CONVERT 


80131710 










* 










80132390 






074F 





1890 




* 


SRT 




16 


CONVERT TO DBL PREC 


80131720 
80131730 


0784 
0785 






1808 
1088 




LL0A2 


SRA 
SLT 




8 
8 


COMBINE TWO 

* CHARACTERS ANO 


80132400 
80132410 






0750 





0867 




DEC 2 


STD 




MDP 




80131740 


0786 


c 


D200 






STO 


2 





* STORE IN LOG AREA 


80132420 






0751 





4C10 


0758 


* 


BSC 


L 


DEC3 t - 


BR IF POSITIVE 


80131750 
80131760 


0787 





C82E 




* 


LDD 




DECNW 


RESTORE A AND Q 


80132430 
80132440 






0753 





10AO 






SLT 




32 


CONVERT TO 


80131770 


0788 





4C80 


0776 




BSC 


I 


LLOA 




80132450 






0754 
0755 






9863 
D862 






SD 
STD 




MDP 


* POSITIVE NUMBER 


80131780 










* 










80132460 
80132470 
80132480 








* 




MDP 




80131790 
80131800 










* 














0756 





C04D 






LD 




NEG 


FETCH NEGATIVE SIGN 


80131810 


078A 





0000 




LGOP 


DC 




*-* 




80132490 






0757 





7001 




* 


MDX 




DEC4 




80131820 
80131830 


078B 





1010 




* 


SLA 




16 




80132500 
80132510 






0758 





COCC 




DEC3 

* 


LD 




SPACE 


FETCH SPACE 


80131840 
80131850 


078C 





DO 16 




* 


STO 




M12SW 


RESET 1ST/2ND SWITCH 


80132520 
80132530 






0759 





40 1C 




DEC4 

* 


BSI 




LLOA 


STO NEG OR SPACE 


80131860 
80131870 


078D 
078E 






083E 
180A 




LG0P1 


XIC 
SRA 




MI0C2 
10 


SENSE DEVICE 
NOP IF 1443 


80132540 
80132550 






075A 





63F0 




DCV 


LOX 


3 


-16 




80131880 


078F 





4C04 


07A0 




BSC 


L 


EWTA.E 


BR IF NOT READY 


80132560 






075 B 





6911 




* 


STX 


1 


0CV4+1 


SAVE XR1 


80131890 
80131900 


0791 





C300 




* 


LD 


3 





FETCH CHAR COUNT 


80132570 
80132580 






075C 





6500 


07A5 


0CV1 


LDX 


LI 


TABL 


XR1~CHAR CODE TBL ADDRS 


80131910 


0792 





8036 






A 




DECNT+15 




80132590 






075 E 





C859 






LDD 




MDP 


FETCH DBL PREC WORD 


80131920 


0793 





DO 80 






STO 




MWC 


SAVE CHAR CNT 


80132600 






075F 





9F00 


07CA 


DCV2 


SD 


L3 


DECNT+16 


SUBTRACT CONVERSION CONST 


80131930 










* 










80132610 






0761 





4C28 


0765 


* 


BSC 


L 


0CV3.+Z 


BR IF NEG RESULT 


80131940 
80131950 


0794 





7005 




LG0P2 


MDX 




LG0P3 


MDX IF 43/NOP IF 53 


80132620 
80132630 






0763 





7101 






MDX 


1 


1 


INCRE CHAR CODE TBL ADR 


80131960 


0795 





7301 






MDX 


3 


1 


XR3*ADDRS OF 1ST CHAR 


80132640 






0764 





70FA 






MDX 




DCV2 


GO SUBTRACT AGAIN 


80131970 


0796 





6B42 






STX 


3 


MDVA2+1 


PUT IN PRINT RTN 


80132650 




DATE 


28FEB66 01JUL66 


04N0V66 


03JUL68 14N0V69 


PROG ID 0801-2 


DATE 28FEB66 01JUL66 


04N0V66 


03JUL68 14N0V69 


PROG ID 


0801-2 


EC NO. 


415120 415178 


415233 


411944 431319 


PAGE 24 


EC NO. 415120 415178 


415233 


411944 431319 


PAGE 


24A 



F 
L 



I I I 



I I I I I I I I I I I I < I I I I I | 



I I < I I I I 
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0797 





C08E 


0798 





D033 


0799 





7001 


079A 





6B2F 


079 B 





082E 


079C 





C026 


079D 





DO 04 


079E 





4C00 0000 


07A0 


c 


300A 


07A1 





70EB 


07A2 





0000 


07A3 





0000 


07A4 





8420 


07A5 





C40A 


07A6 


c 


FC01 


07A7 





D802 


07A8 





DC 03 


07A9 





F004 


07AA 





F405 


07AB 


c 


D0C6 


07AC 





D407 


07AD 


c 


E408 


07AE 


c 


E009 


07AF 





3E31 


07B0 





1A32 


07B1 





1E33 


07B2 





3234 


07B3 





3635 


07B4 





1236 


07B6 


c 


0000 0000 


07B8 





0000 0000 



LG0P3 

LG0P4 

* 



07BA 
07BC 
07BE 
07C0 
07C2 
07C4 
07C6 
07C8 



0098 
OOOF 
0001 
0000 
0000 
0000 

ooco 

0000 



9680 
4240 
86A0 
2710 
03E8 
0064 
OCOA 
0001 



07CA 07CC 
07CB 0000 
7CC C 0000 
07CD 0000 



07CE 0000 
07CF 0000 

07D0 C0F2 
0701 DODO 

07D2 08F9 

07D3 7015 

07D4 74FF 0721 



* 

LG0P5 
* 
EWTA 

* 

LGINT 

M12SW 

NEG 
TABL 



LD 

STO 

MDX 

STX 

XIO 

LD 
STO 

BSC 

WAIT 
MDX 



* 

DECNU 

MDP 

* 

OECNT 



MI0C1 
MI0C2 

* 

* 

* 
MDVA 



DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DEC 
DEC 

DEC 
DEC 
DEC 
OEC 
DEC 
DEC 
DEC 
DEC 

DC 
DC 
DC 
DC 



* 

MDVA1 

* 



DC 
DC 

LD 
STC 

XIO 

MDX 

MDX 



CRSPS 
MI0C2 
LG0P4 

3 MI0C1 

MI0C1 

DECNT+9 
LGINT 



/A 

LG0P1 



*-* 
*-* 

/8420 
/C40A 
/FC01 
/D302 
/DC03 
/F004 
/F405 
/0006 
/D407 
/E408 
/E009 
/3E31 
/1A32 
/1E33 
Z3234 
/3635 
/1236 

*-* 
*-* 

10000000 

1000000 

100000 

10000 

1000 

100 

10 

1 

MI0C2 
*-* 

*-* 
*-* 



FETCH CARRIER RETURN CODE 
PUT IN PRINT AREA 



PUT LOG AREA ADR IN IOCC 
START OUTPUT DEVICE 

RETURN TO USER OR POLL RTN 

ERROR WAIT A 

* LOG DEVICE NOT READY 



1ST/2ND SWITCH 

NEGATIVE SIGN 


1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



WRITE IOCC 

SENSE DEVICE IOCC 



*-* 

*-* 

DECNT+9 
LGINT 

MI0C2 

MDVA5 

MWC-1 



SET TIME DELAY FOR 

* MONITOR POLLING RTN 

SENSE DEVICE 

MDX IF 43/NOP IF 53 

DECRE CHAR CNT BY ONE 



80132660 

80132670 

80132680 

8C132690 

80132700 

80132710 

80132720 

80132730 

80132740 

80132750 

80132760 

80132770 

80132780 

80132790 

80132800 

8C132810 

80132820 

80132830 

80132840 

80132850 

80132860 

80132870 

80132880 

8C132890 

80132900 

80132910 

80132920 

80132930 

80132940 

80132950 

80132960 

80132970 

80132980 

80132990 

80133000 

8C133010 

80133020 

80133030 

8C133040 

80133050 

8C133060 

80133070 

80133080 

80133090 

8C133100 

80133110 

8C133120 

80133130 

80133140 

8C133150 

80133160 

80133170 

80133180 

80133190 

8C133200 

80133210 

80133220 

80133230 

80133240 

80133250 

80133260 

80133270 

80133280 

8C133290 

80133300 

80133310 

8C133320 

80133330 



07D6 
07D7 


C 



7001 
7014 




* 
MDVA2 

* 
* 

* 
MDVA3 

* 

MDVA4 

* 

* 
MDVA5 

* 
MDVA6 

* 

* 
MDVA7 

* 
* 


MDX 
MDX 




MDVA2 
MDVA6 


07D8 
07DA 


C 



67C0 
C300 


0000 


LDX 

LD 


L3 
3 


*-* 



07DB 
07DD 






7400 
7003 


07A3 


MDX 
MDX 


L 


M12SW 
MDVA3 


07DE 
07DF 
07EO 







DOED 
68C3 
7005 




STC 
STX 

MDX 




MI0C2 
M12SW 
MDVA4 


07E1 
07E2 
07E3 
07E4 
07E5 










1008 
D0E9 
1010 
DOBE 
7301 




SLA 
STO 
SLA 
STO 

MDX 


3 


8 

MI0C2 
16 
M12SW 

1 


07E6 





6BF2 




STX 


3 


MDVA2+1 


07E7 
07E8 






08E2 
7009 




XIO 
MDX 




MI0C1 
MDVA7 


07E9 
07EA 






1002 
4C90 


07CF 


SLA 

BSC 


I 


2 

MDVA+1,- 


07EC 
07EE 






6700 
6BB0 


04AE 


LDX 
STX 


L3 
3 


MCON 
LG0P5+1 


07EF 
07F0 






C09A 

D400 


0327 


LD 
STO 


L 


LGOP 
MLSCF 


07F2 





4C80 


07CF 


BSC 


I 


MDVA+1 










* 








07F4 

07F5 


c 




0000 
4CC0 


07F4 


ILTTR 


DC 
BOSC 


I 


ILTTR 



XR3=ADDRS OF NEXT CHAR 
FETCH TWO CHARACTERS 

CHECK FOR 1ST/2ND CHAR 



PUT CHAR IN OUTPUT AREA 
SET 1ST/2ND SW 



POSITION 2ND CHAR 
PUT IN OUTPUT AREA 

RESET 1ST/2ND SW 



SAVE XR3 FOR NEXT INT 
PRINT NEXT CHAR 



CHECK FOR PRINTER 
* COMPLETE 



SET MLSCF ENTRY 



MONITOR TRACE ROUTINE 

ENTRY 
RETURN 



80133340 

80133350 

80133360 

80133370 

80133380 

80133390 

80133400 

80133410 

80133420 

80133430 

80133440 

80133450 

80133460 

80133470 

80133480 

80133490 

80133500 

80133510 

80133520 

80133530 

80133540 

80133550 

80133560 

80133570 

80133580 

80133590 

80133600 

80133610 

80133620 

80133630 

80133640 

80133650 

80133660 

80133670 

80133680 

80133690 

80133700 

80133710 

80133720 

80133730 

80133740 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 

415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 
PAGE 



0801-2 
25 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 

415178 



04NCV66 
415233 



03JUL68 
411944 



14N0V69 
431319 



PROG ID 
PAGE 



0801-2 
25A 
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0800 



ORG 



2048 



*************************************************** 

* * 

* * * *** ***** ***** * 

* ******* * 

* * * * * * * **** * 

* ******* * 

* * * *** * ***** * 

* * 
*************************************************** 

* THE FOLLOWING SECTIONS OF MONITOR MAY BE 

* OVERLAID WHEN FUNCTION TEST PROGRAMS ARE LOADED. 

* REFER TO THE DESCRIPTIONS OF EACH OF THE 

* FOLLOWING 5 SECTIONS FOR DETAILS. 
* 

********************************************** 
********************************************** 

* MONITOR SYSTEMS EDIT ROUTINE 
********************************************** 
********************************************** 

* IT IS THE FUNCTION OF THIS ROUTINE TO SET UP 
THE MONITOR OPERATING PARAMETERS BASED ON THE 
OPERATOR EDIT INPUT. THIS ROUTINE WILL BE 
OVERLAID BY THE FIRST TEST PROGRAM LOADED UNLESS 
A LOADING ADDRESS HIGHER THAN /07FF IS SELECTED. 
THIS OVERLAY WILL HAVE NO EFFECT ON MONITOR 
OPERATION SINCE THIS ROUTINE IS USED ONLY WHEN 
THE MONITOR IS THE ONLY PROGRAM IN CORE. THIS 
ROUTINE CONSISTS OF 5 SUBROUTINES. THE FUNCTION 
OF EACH SUBROUTINE IS AS FOLLOWS. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



LABEL* FUNCTION 
********************************************** 

* 
MEC * MONITOR EDIT CONTROL SUBROUTINE. 

THIS ROUTINE CHECKS EACH MONITOR EDIT 
CARD FOR PROPER PID AND SEQUENCE 
NUMBER ENTRIES. DETERMINES THE EDIT 
CARD FORMAT (CARD 0, CARD 1, CARD 2, OR 
END OF EDIT CARD) AND XFERS TO THE 
PROPER CARD FORMAT ROUTINE. 



MECO 



MEC1 



MEC2 



MONITOR EDIT CARD SUBROUTINE WILL 
PLACE THE DDEFS FOR THE CONSOLE INTER- 
RUPT AND THE OUTPUT DEVICE SPECIFIED IN 
THE MONITOR EDIT FIELDS 

MONITOR EOIT CARD 1 SUBROUTINE OEVEL- 
OPES THE MASK REGISTER, ASSIGNS THE 
MONITOR INTERRUPT LEVEL ROUTINES TO A 
LEVEL, AND PLACES THE CORRESPONDING 
ADDRESSES IN THE INT XFER VECTOR TABLE. 
THIS ROUTINE ALSO VERIFIES THAT THE 
INTERRUPT LEVELS ASSIGNED TO THE DDEFS 
IN CARD ARE SPECIFIED IN CARD 1 

THIS ROUTINE PLACES THE AREA CODES AND 
MODIFIERS INTO THE CORRECT LOCATION IN 
THE INTERRUPT LEVEL TABLES CORRESPOND- 
ING TO THOSE INTERRUPT LEVELS ASSIGNED 
IN CARD 1. 



ENDED* END OF EDIT CARD SUBROUTINE. THIS 

* ROUTINE SETS UP CONTROLS AND CODE 

* TABLES IN THE MONITOR FOR THE SELECTED 

* LOG DEVICE, RELOCATES THE ENGLISH PRINT 

* SECTIONS OF MONITOR INTO THE HIGHEST 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



80133760 

80133770 

80133780 

80133790 

80133800 

80133810 

80133820 

80133830 

80133840 

80133850 

80133860 

80133870 

80133880 

80133890 

80133900 

80133910 

80133920 

80133930 

80133940 

80133950 

80133960 

80133970 

80133980 

80133990 

80134000 

80134010 

80134020 

80134030 

80134040 

80134050 

8C134060 

80134070 

80134080 

80134090 

80134100 

80134110 

80134120 

80134130 

80134140 

80134150 

80134160 

80134170 

80134180 

80134190 

80134200 

80134210 

80134220 

80134230 

80134240 

80134250 

80134260 

80134270 

80134280 

80134290 

80134300 

80134310 

80134320 

80134330 

80134340 

80134350 

8C134360 

80134370 

80134380 

80134390 

80134400 

80134410 

80134420 

80134430 



PROG ID 
PAGE 



0801-2 
26 











* 


* 


AVAILABLE 


CORE, PRINTS THE C001 MSG AND 


80134440 












* 


* 


HALTS AT WAIT 2 FOR PROGRAM LOAD OPTION 


80134450 












* 


* 


SELECTION. 


, WHEN LOAD OPTIONS HAVE BEEN 


80134460 












* 


* 


ENTERED CONTROL IS XFED TO THE LOADER 


80134470 












* 


* 


• TO LOAD THE TEST PROGRAMS. 


80134480 












* 


* 


; 






80134490 






0800 


6300 




MEC 


LDX 


3 







80134500 






0801 


C300 






LD 


3 





FETCH PID ENTRY 


80134510 






0802 


F400 


031D 




EOR 


L 


PID 




80134520 






0804 


4C18 


0808 


* 


BSC 


L 


MECA.+- 


BR IF PID CORRECT 


80134530 
80134540 






0806 


300E 




TRPOE 


WAIT 




/OE 


ERROR TRAP OE 


80134550 






0807 


70FE 




* 


MDX 




TRPOE 


* INCORRECT PID 


80134560 
80134570 






0808 


C301 




MECA 


LD 


3 


1 




80134580 






0809 


F400 


03FD 




EOR 


L 


BGIN 




80134590 






080B 


4C20 


08CF 


* 


BSC 


L 


ENDED, Z 


BR IF END OF EDIT CARD 


80134600 
80134610 






080D 


C302 






LD 


3 


2 


CHECK FOR EOIT 


80134620 






080E 


4C20 


0812 


* 


BSC 


L 


MECB.Z 


* WORD COUNT OF ZERO 


80134630 
80134640 






0810 


3010 




TRP10 


WAIT 




/10 


ERROR TRAP 10 


80134650 






0811 


70FE 




* 


MDX 




TRP10 


* COUNT INCORRECT 


80134660 
80134670 






0812 


DOOB 




MECB 


STO 




EDCNT 




80134680 






0813 


900B 






S 




M0012 




80134690 






0814 


4C30 


0810 


* 


BSC 


L 


TRP10.Z- 


BR IF COUNT HIGHER THAN 12 


80134700 
80134710 






0816 


7401 


03FD 


* 


MDX 


L 


BGIN,1 


INCRE SEQUENCE NUMBER 


80134720 
80134730 






0818 


C301 






LD 


3 


1 




80134740 






0819 


B400 


0820 




CMP 


L 


ED01 




80134750 






081B 


7074 






MDX 




MEC2 


GO TO CARD 2 RTN 


80134760 






081C 


7005 






MDX 




MECO 


GO TO CARD RTN 


80134770 






081D 


7021 




* 


MDX 




MEC1 


GO TO CARD 1 RTN 


80134780 
80134790 






081E 


0000 




EDCNT 


DC 




*-* 




80134800 






081F 


OOOC 




MOO 12 


DC 




12 




80134810 






0820 


ED01 




ED01 


DC 




/ED01 




80134820 






0821 


0002 




M0002 

* 

* 

* 


DC 




2 




80134830 
80134840 
80134850 
80134860 


















0822 


C302 




MECO 


LD 


3 


2 




80134870 






0823 


FOFD 






EOR 




M0002 




80134880 






0824 


4C18 


0828 


* 


BSC 


L 


MECOA, + 


BR IF COUNT CORRECT 


80134890 
80134900 






0826 


3011 




TRPll 


WAIT 




/ll 


ERROR TRAP 11 


80134910 






0827 


70FE 




* 


MDX 




TRPll 


* INCORRECT COUNT 


80134920 
80134930 






0828 


C303 




MECOA 


LD 


3 


3 


FETCH CONS INT ENTRY 


80134940 






0829 


D400 


033 A 




STO 


L 


MED 




80134950 






082B 


4400 


08BF 


* 


BSI 


L 


CKDEF 




80134960 
80134970 






082D 


3012 




TRP12 


WAIT 




/12 


ERROR TRAP 12 


80134980 






082E 


70FE 




* 


MDX 




TRP12 


* CI ENTRY INCORRECT 


80134990 
80135000 






082F 


1084 






SLT 




4 




80135010 






0830 


1010 






SLA 




16 




80135020 






0831 


1084 






SLT 




4 




80135030 






0832 


F400 


0606 




EOR 


L 


MOOOF 




80135040 






0834 


4C20 


0820 


* 


BSC 


L 


TRP12,Z 




80135050 
80135060 






0836 


C304 






LD 


3 


4 


FETCH LOG OEV ENTRY 


80135070 






0837 


D400 


033B 


* 


STO 


L 


MED1 




80135080 
80135090 






0839 


4400 


08BF 


* 


BSI 


L 


CKDEF 


GO TO CHECK DDEF 


80135100 
80135110 




DATE 


28FEB66 i 


31JUL66 


04NOV66 


03JUL68 


14N0V69 


PROG ID 


0801-2 


EC NO. 


415120 


415178 


415233 


411944 


431319 


PAGE 


26A 
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083B 3013 
083C 70FE 



083D 6400 0436 



083F C303 

0840 1008 

0841 1808 

0842 D006 

0843 1008 

0844 4400 08BF 

0846 3014 

0847 70FE 

0848 6500 0000 
084A C500 03E5 
084C F400 0605 
084E 4C18 0852 

0850 3015 

0851 70FE 

0852 C700 0870 
0854 D500 03E5 

0856 C400 033A 

0858 1808 

0859 F303 
085A 4818 

085B D02D 



TRP13 



WAIT /13 ERROR TRAP 13 

MDX TRP13 * LOG DEV ENTRY INCORRECT 

LDX L MNED RETURN TO LOADER 



* 
MEC1 



* 
TRP14 



* 
MEC1A 



* 
TRP15 



* 
MEC1B 



085C 
085E 
085F 
0860 



C400 033B 
18C8 
F303 
4818 



0861 D028 



0862 





C829 


0863 





19C0 


0864 





E029 


0865 





D028 


0866 





18D0 


0867 





E027 


0868 


c 


D026 


0869 





7301 


086A 


□ 


74FF 081E 


086C 





7002 



* 
MEC1C 



LD 
SLA 
SRA 
STO 

SLA 
BSI 

WAIT 
MDX 

LDX LI 

LD LI 

ECR L 

8SC L 

WAIT 
MDX 

LD L3 
STO LI 

LD L 
SRA 

EOR 3 
BSC 

STC 

LD L 
SRA 

EOR 3 
BSC 

STO 

LDD 

RTE 1 

AND 

STC 

RTE 

AND 

STO 



086D C820 
086E D400 030E 

0870 108E 

0871 D400 0310 

0873 C015 

0874 4C18 0878 

0876 3016 

0877 70FE 

0878 C011 

0879 4C18 0436 



* 
MEC1D 

* 
TRP16 

* 
MEC1E 



3 
8 
8 
MEC1A+1 



8 
CKDEF 

/14 
TRP14 

*-* 
IXFV+3 
MTR28 
MEC1B,+- 

/15 
TRP15 

ILRTB 
IXFV+3 

MED 

8 

3 



CIED1 

MED1 

8 

3 



LGED1 

M7FFF 



EDMSK 

EDMSK 

16 

EDMSK+1 

EDMSK+1 



MDX 
MDX L 
MDX 

LDD 

STC L 
SLT 
STO L 



3 1 



LD 
BSC 

WAIT 
MDX 

LD 
BSC 



EDCNT,-1 
MEC1 

EDMSK 
UMK15 
14 
UMK23 

CIED1 
MEC1E.+- 

/16 
TRP16 

LGED1 
MNED.+- 



FETCH INTERRUPT ENTRY 



CK FOR VALID LEVEL 

ERROR TRAP 14 

* INVALID INT LEVEL 

XRl=INT LEVEL 
FETCH TABLE ENTRY 

CK IF PREVIOUSLY EOITED 

ERROR TRAP 15 

* SAME LEV SPECIFIED TWICE 

FETCH VECTOR ADDRS 
STORE IN TABLE 



CK IF LEVEL IS FOR 
* CONSOLE INT 

SET CI EDITED IND 



CK IF LEVEL IS FOR 
* LOG DEVICE 

SET LOG DEVICE ECITED IND 



BUILD 

* UNMASK 

* WORDS 



CK FCR ALL 

* ENTRIES PROCESSED 

STORE UNMASK 

* WORDS IN 

* UNMASK 

* IOCC'S 

CHECK IF CONSOLE INT 

* SPECIFIED ON EDOl 

ERRCR TRAP 16 

* CONS INT NOT SPECIFIED 

CHECK IF LOG DEVICE INT 

* SPECIFIED ON EDOl 



80135120 
80135130 
80135140 
80135150 
80135160 
80135170 
80135180 
80135190 
80135200 
80135210 
80135220 
80135230 
80135240 
80135250 
80135260 
80135270 
80135280 
80135290 
80135300 
80135310 
80135320 
80135330 
80135340 
80135350 
80135360 
80135370 
80135380 
80135390 
80135400 
80135410 
80135420 
80135430 
80135440 
80135450 
80135460 
80135470 
8C135480 
80135490 
80135500 
80135510 
80135520 
80135530 
80135540 
8C135550 
80135560 
8C135570 
80135580 
80135590 
80135600 
8C135610 
80135620 
80135630 
80135640 
80135650 
8C135660 
80135670 
80135680 
80135690 
80135700 
80135710 
8C135720 
80135730 
80135740 
80135750 
80135760 
80135770 
80135780 
80135790 











* 










80135800 


087B 





3017 




TRP17 


WAIT 




/17 


ERROR TRAP 17 


80135810 


087C 





70FE 




* 


MDX 




TRP17 


* LOG DEV INT NOT SPECIFY 


80135820 
80135830 


0870 





013E 




ILRTB 


DC 




ILA + 1 




80135840 


087E 





0158 






DC 




ILB + 1 




80135850 


087F 





0172 






DC 




ILC+1 




80135860 


0880 





018C 






DC 




ILO+1 




80135870 


0881 





01A6 






DC 




ILE+1 




80135880 


0882 





01C0 






DC 




ILF+1 


- 


80135890 


0883 





01DA 






DC 




ILG + 1 




80135900 


0884 





01F4 






DC 




ILH+1 




80135910 


0885 





020E 






DC 




ILI + 1 




80135920 


0886 





0228 






DC 




ILJ+1 




80135930 


0887 





0242 






DC 




ILK+1 




80135940 


0888 





025C 




* 


DC 




ILL+1 




80135950 
80135960 


0889 





FFFF 




CIED1 


DC 




/FFFF 




80135970 


088A 





FFFF 




LGED1 

* 


DC 




/FFFF 




80135980 
80135990 


088C 




0000 






BSS 


E 







80136000 


088C 





7FFF 




M7FFF 


DC 




/7FFF 




80136010 


088D 





FFFF 






DC 




/FFFF 




80136020 


088E 





FFFF 




EDMSK 


DC 




/FFFF 




80136030 


088F 





FFFF 




* 


DC 




/FFFF 




80136040 
80136050 
80136060 
80136070 










* 










0890 





6500 


08AE 


MEC2 


LDX 


LI 


MEC2F 




8C136080 


0892 





6D00 


0614 




STX 


LI 


DVAD2+1 




80136090 


0894 





6500 


08AB 




LDX 


LI 


MEC2C 




80136100 


0896 


c 


6D00 


062 A 


* 


STX 


LI 


DVAD3+3 




80136110 
80136120 


0898 





C303 




MEC2A 

* 


LD 


3 


3 


FETCH DDEF ENTRY 


80136130 
80136140 


0899 





4025 




* 


BSI 




CKDEF 


GO CHECK DDEF 


80136150 
80136160 


089A 





3019 




TRP19 


WAIT 




/19 


ERROR TRAP 19 


80136170 


089B 





70FE 




* 


MDX 




TRP19 


* INVALID INT LEVEL 


80136180 
80136190 


089C 





C303 




MEC2B 


LD 


3 


3 


CHECK IF DDEF 


80136200 


089D 





F400 


033A 




EOR 


L 


MED 


* ENTRY IS FOR 


80136210 


089F 





4818 




* 


BSC 




+- 


* CONSOLE INTERRUPT 


80136220 
80136230 


08A0 





D029 




* 


STC 




CIED2 


SET CI EDITED IND 


80136240 
80136250 


08A1 


c 


C303 






LD 


3 


3 


CHECK IF DDEF 


80136260 


08A2 





F400 


033B 




EOR 


L 


MED1 


* ENTRY IS FOR 


80136270 


08A4 





4818 




* 


BSC 




+- 


* LOG DEVICE 


80136280 
80136290 


08A5 





D025 




* 


STO 




LGED2 


SET LOG DEV EDITED IND 


80136300 
80136310 


08A6 


c 


C303 






LD 


3 


3 


FETCH DDEF 


80136320 


08A7 





4400 


060B 


* 


BSI 


L 


DVAD 


GO TO FIND ILT ADDRS 


80136330 
80136340 


08A9 





30 IB 




TRP1B 


WAIT 




/IB 


ERRCR TRAP IB 


80136350 


08AA 





70FE 




* 


MDX 




TRP1B 


* MULTIPLE ASSIGNED ILSW 


80136360 
80136370 


08A8 





C304 




MEC2C 


LD 


3 


4 


FETCH AREA CODE 


80136380 


08AC 





D480 


0628 


* 


STO 


I 


DVAD3+1 


STO AREA CODE IN ILT 


80136390 
80136400 


08AE 





7302 




MEC2F 

* 


MDX 


3 


2 




80136410 
80136420 


08AF 





74FF 


081E 




MDX 


L 


EDCNT.-l 


DECRE EDIT COUNT 


80136430 


0881 


c 


70C2 




* 


MDX 




MEC2G 




80136440 
80136450 


08B2 





3018 




TRP18 


WAIT 




/18 


ERROR TRAP 18 


80136460 


08B3 





70FE 






MDX 




TRP18 


* ODD NUMBER OF ENTRIES 


80136470 



DATE 


28FEB66 


01JUL66 


04N0V66 


03JUL68 


14N0V69 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PRCG ID 


0801-2 














PAGE 
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DATE 


28FEB66 


01JUL66 


04NGV66 


03JUL68 


14N0V69 






EC NO. 
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415233 
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* 












80136480 


08B4 





74FF 


081E 


MEC2G 


MDX 


L 


EDCNT.-l 


CK IF END 




80136490 


08B6 





70E1 




* 


MDX 




MEC2A 


* OF CARD 




80136500 
80136510 


08B7 


c 


65C0 


C601 




LDX 


LI 


TRP24-2 






80136520 


08B9 


c 


6000 


0614 




STX 


LI 


DVAD2+1 






80136530 


08RB 





6DC0 


062A 


* 


STX 


LI 


DVAD3+3 






80136540 
80136550 


08B0 





6400 


0436 


* 


LDX 


L 


MNED 


RETURN TO LOADER 




80136560 
80136570 










* 












oU 1305UU 
80136590 


08BF 


c 


0000 




CKDEF 

* 


DC 




*-* 






80136600 
80136610 


08C0 





4CA8 


08BF 




BSC 


I 


CKDEF, Z+ 


ERROR RETURN INVALID INT 


80136620 










* 












80136630 


08C2 


c 


1888 






SRT 




8 






80136640 


08C3 





9008 






S 




H0017 


ERROR RETURN IF INVALID 


80136650 


08C4 





4CB0 


08BF 




BSC 


I 


CKDEF, Z- 


* INT LEVEL SPECIFIED 


80136660 










* 












80136670 


08C6 





7402 


08BF 




MDX 


L 


CKDEF.2 






80136680 


08C3 





4C80 


08BF 


* 


BSC 


I 


CKDEF 






80136690 
80136700 


08CA 





FFFF 




CIED2 


DC 




/FFFF 






80136710 


08CB 





FFFF 




LGED2 

* 


DC 




/FFFF 






80136720 
80136730 


08CC 





0017 




H0017 


DC 




/0017 






80136740 


08CD 





0008 




M0008 


DC 




8 






80136750 


08CE 


c 


ED02 




ED02 

* 


DC 




/ED02 






80136760 
80136770 

QAI?JL7Qn 










* 












ou l jo lau 
80136790 


08CF 





C301 




ENDED 


LD 


3 


1 






80136800 


08D0 





F400 


04A4 




ECR 


L 


ECED 






80136810 


08D2 





4C18 


0806 


* 


BSC 


L 


EN0E1.4— 


BR IF END OF EDIT 


CARD 


80136820 
8C136830 


08D4 


c 


30CD 




TRPOO 


WAIT 




/OD 


ERROR TRAP OD 




8C136840 


08D5 





70FE 






MDX 




TRPOD 


* INCORRECT SEQUENCE 


80136850 










* 












80136860 


08D6 


c 


C400 


03FD 


ENDE1 


LD 


L 


BGIN 






80136870 


0808 





B0F5 






CMP 




ED02 


CHECK IF SYSTEM EDIT 


80136880 


08D9 





7002 




* 


MDX 




ENDE2 


* CARDS HAVE BEEN 


READ 


80136890 
80136900 


08DA 





300F 




TRPOF 


WAIT 




/OF 


ERROR TRAP OF 




80136910 


080B 





70FE 




* 


MDX 




TRPOF 


* NO SYSTEM EDITS 




80136920 
80136930 


08DC 





COED 




ENDE2 


LD 




CIED2 


CHECK IF CONSOLE 




80136940 


08DD 





4C18 


08E1 


* 


BSC 


L 


ENDE3.+- 


* INTERRUPT EDITEC 


) 


8C136950 
80136960 


08DF 





301C 




TRP1C 


WAIT 




/1C 


ERROR TRAP 1C 




80136970 


08EO 





70FE 




* 


MDX 




TRP1C 


* NO CI IN SYSTEM 


EDIT 


80136980 
80136990 


08E1 





C0E9 




ENDE3 


LD 




LGED2 


CHECK IF LOG 




80137000 


08E2 





4C18 


08E6 


* 


BSC 


L 


ENDE4.+- 


* DEVICE EDITED 




80137010 
80137020 


08E4 





301D 




TRP1D 


WAIT 




/1D 


ERROR TRAP ID 




80137030 


08E5 





70FE 




* 


MDX 




TRP1D 


* NO LOG IN SYSTEM 


1 EDIT 


80137040 
80137050 


08E6 





C400 


033 B 


ENDE4 


LD 


L 


MED1 






80137060 


08E8 


c 


100C 






SLA 




12 






80137070 


08E9 


c 


188C 






SRT 




12 






80137080 


08EA 





F400 


088D 




ECR 


L 


M7FFF+1 






80137090 


08EC 





4C20 


08F5 


* 


BSC 


L 


ENDE5,Z 


BR IF 1443 IS LOG 


DEVICE 


80137100 
80137110 


08EE 





C400 


0443 




LD 


L 


NOP 


SET SWITCHES 




80137120 


08F0 





D400 


0794 




STO 


L 


LG0P2 


♦ FOR 1816/1053 




80137130 


08F2 





D4C0 


07D3 




STO 


L 


MDVA1 


* AS LOG DEVICE 




80137140 


08F4 





7025 






MDX 




ENDE7 






80137150 



08F5 
08F7 
08F9 
08FB 
08FD 
08FF 
0900 
0901 



C400 0443 
D400 06FA 
D400 0E06 
D400 OEOB 
D400 C78E 
D03A 
D03D 
0400 0F9F 



* 
ENDE5 



0903 1010 

0904 D400 0724 
0906 D400 0726 
0908 C D400 0725 

090A C400 0998 
090C D400 0727 

090E 6112 
090F C500 C7A3 

0911 1008 

0912 C D500 07A3 

0914 71FF 

0915 70F9 

0916 C C400 0999 
0918 D400 099A 

091A C400 O3E0 
091C E400 0126 
091E 0400 O3E0 

0920 6600 0E99 
0922 6500 FC29 

0924 4021 

0925 B400 09FO 

0927 7004 

0928 C 7003 

0929 401C 
092A 401B 

092 B 401 A 
092C 4C08 0924 

092E D400 0721 



0930 





4015 


0931 





1890 


0932 





1010 


0933 





1088 


0934 





D008 


0935 





1010 


0936 





1088 


0937 





D001 



0938 C600 0000 
093A 1888 
093B 1888 

093C C600 0000 
093E 1808 
093F 1088 
0940 D500 FDC6 

0942 74FE 072 1 
0944 70EB 



* 
EN0E6 



* 
ENDE7 



* 
ENDE8 



ENDE9 
* 



* 
END10 



* 
END11 



* 
END12 



EN014 

* 



LD 

STC 

STO 

STC 

STO 

STO 

STC 

STO 

SLA 
STO 
STC 
STC 

LD 
STC 

LDX 

LD 

SLA 

STC 

MDX 

MDX 

LD 
STO 

LD 

AND 

STO 

LDX 

LDX 

BSI 

CMP 
MDX 
MDX 

BSI 

BSI 

BSI 
BSC 

STO 

BSI 
SRT 
SLA 
SLT 
STC 
SLA 
SLT 
STO 

LD 

SRT 

SRT 

LD 
SRA 
SLT 
STO 

MOX 

MOX 



NCP 

LG12 

LENG6-1 

LENG6+4 

LG0P1+1 

END11+2 

END12+2 

PRINl 

16 

FEED 

CRSPS 

SPACE 

ASTR2 
ASTRS 



1 18 
LI NEG-1 

8 
LI NEG-1 
1 -1 
ENDE6 



SET SWITCHES 

* FOP 1443 

* AS LOG DEVICE 



ICC43 
LI0C1 

MI0C6 

ULIM 

MICC6 



CHANGE LINE 

* FEED CODE FOR 1443 



CHANGE CODE FOR ASTERISKS 
* TO 1443 CODE 



CHANGE HEX/DEC 

* CCNVERSION TBL 

* TO 1443 CODE 



SET-UP 1443 

* WRITE COMMAND 

SET UP CHECK WORD FOR 

* BEGIN RTN TO CK IF 

* ENG HAS BEEN OVERLAID 

XR2=PRINT CODE TBL ADR 



L2 CDTBL 

LI ENGT1-LDENG XR1=M0N MSG TBL LENGTH 



MOVE 
ENGT1 
ENDE9 
ENDE9 

MOVE 
MOVE 

MOVE 
ENDE8.+ 

MWC 

MOVE 

16 

16 

8 

END12+1 

16 

8 

END11+1 



L2 *-* 
8 

8 



FETCH WORD FROM TABLE 

BR IF NOT TERMINATOR 
BR IF NOT TERMINATOR 

FETCH PID AND STC HI CORE 
FETCH MID AND STO HI CORE 

FETCH CHAR CNT AND STO 
BR IF ZERO COUNT 

SAVE COUNT 

FETCH TWC CHARACTERS 
PUT IN Q 

BRING IN FIRST CHAR 



BRING IN SECCND CHAR 



FETCH 53/43 CODE 2ND CHAR 
NOP IF 1443 IS LOG DEVICE 
PUT CODE IN Q 



L2 *-* FETCH 53/43 CODE 1ST CHAR 
8 NCP IF 1443 IS LOG DEVICE 

8 COMBINE TWO CHARACTERS 

LI LDENG+/EFFF STORE IN ENG MSG TABLE 



L MWC, -2 
END 10 



MORE CHARACTERS IN MSG 



80137160 
8C137170 
80137180 
8C137190 
8C13720C 
80137210 
S0137220 
80137230 
80137240 
8C137250 
8C137260 
80137270 
80137280 
8C137290 
80137300 
8C137310 
80137320 
80137330 
80137340 
80137350 
80137360 
80137370 
80137380 
80137390 
80137400 
80137410 
80137420 
80137430 
80137440 
80137450 
80137460 
80137470 
80137480 
80137490 
80137500 
80137510 
8C137520 
80137530 
8C137540 
80137550 
80137560 
80137570 
80137580 
80137590 
8C137600 
80137610 
80137620 
80137630 
80137640 
80137650 
80137660 
80137670 
80137680 
8C137690 
80137700 
8C137710 
8C 137720 
80137730 
80137740 
8C137750 
80137760 
80137770 
80137780 
80137790 
80137800 
80137810 
80137820 
80137830 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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PAGE 


28 


EC NO. 


415120 


415178 


415233 


411944 


431319 



PRCG ID 
PAGE 
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IBM MAINTENANCE DIAGNOSTIC PRCGRAM FCR THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 
PAGE 



2196354 
29 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 2196354 
PAGE 29A 



0945 70DE 

0946 0000 

0947 C500 0DC7 
0949 D500 FDC7 

094B 7101 
094C 7009 

094D 6700 FE10 
094F C700 0FB7 
0951 D700 FFB7 



0953 
0954 
0955 



C 7301 
70FA 
7002 



0956 4C80 0946 



0958 
095A 
095B 
095C 
095D 
095E 
095F 



4400 05CB 

0994 

03 3 A 

0395 

033B 

07CE 

0308 



0960 C400 0395 

0962 F038 

0963 C D400 03E1 

0965 C400 07CE 

0967 F032 

0968 D400 07CB 

096A C400 07CE 
096C F02E 

096D D400 07C0 

096F 4400 033C 

0971 C001 

0972 3002 

0973 C 7400 0333 

0975 70F9 

0976 OCOO 03DE 
0978 C400 0309 
097 A D400 059 A 
097C C EC 00 049D 
097E D400 0125 

0980 C400 0309 

0982 1008 

098 3 D400 059B 

0985 1087 

0986 4C28 098B 

0988 4400 033C 
098A A002 

098B 6500 FB93 

098D C 6D00 FFA8 
098F C806 

0990 DCOO 0446 



* 

MOVE 

* 



* 
M0VE1 

* 
M0VE2 



* 

M0VE4 
* 
END13 



C001 

WT2 

* 



A002 

* 

END15 



MDX 

DC 

LD 
STO 

MDX 
MDX 

LDX 

LD 

STO 

MDX 
MDX 
MDX 

BSC 

BSI 
DC 

DC 
DC 
DC 
DC 
DC 

LD 

EOR 

STC 

LD 

EOR 

STO 

LD 

EOR 

STO 

BSI 

DC 

WAIT 

MDX 
MDX 

XIC 

LD 

STC 

OR 

STO 

LD 

SLA 

STC 

SLT 

BSC 

BSI 
DC 

LDX 
STX 
LDD 
STD 



ENDE8 
*-* 



END OF MSG 



LI LDENG FETCH WORD AND RELOCATE 
LI LDENG+/F000 



1 1 

MOVE 4 



CK IF ENGLISH MSG TBL 

* HAS ALL BEEN MOVED 



L3 LDENG-AREA3 

L3 AREA3 FETCH WORD AND RELOCATE 

L3 AREA3+/F000 

3 1 

M0VE1 
END13 



MOVE 

RCDV 

TRP22 

MED 

MNCSL-1 

MED1 

MDVA 

MK15 

MNCSL-1 

LI0C2 

MI0C6+1 

MDVA 

LI0C1 

MI0C1+1 

MDVA 

LI0C2 

MI0C2+1 

MSI 
/C001 



MAT05 
C001-2 

MI0C4 

MDES 

LDADR 

MLD2 

NLOC 

MDES 

8 

MODE 

7 
END15.Z+ 



MSI 
/A002 



RETURN TO CALLING ADDRESS 

REQUEST 

* LOG DEVICE 

* AND CONSOLE 

* INTERRUPT 



BUILD CONSOLE 

* INTERRUPT RESET IOCC 



BUILD LOG DEVICE 
* WRITE IOCC 



BUILC LCG DEVICE 
* SENSE DSW IOCC 



INITIALIZE MONITOR AND 
* PRINT C001 MSG 

NORMAL WAIT 2 

CI NOT ALLOWED 
READ DE SWS 



SAVE MODE 

RETURN TO LOADER IF 

* BYPASS A002 SELECTED 

INITIALIZE MONITCR AND 

* PRINT A002 MSG 



LI ENGT2«VF000 
LI AREA2+/F000 

LDX1 
L EDCD 



80137840 
80137850 
80137860 
8C137870 
8C137880 
80137890 
80137900 
80137910 
80137920 
80137930 
8C137940 
80137950 
80137960 
80137970 
80137980 
80137990 
80138000 
80138010 
80138020 
80138030 
80138040 
80138050 
80138060 
80138070 
8C138080 
80138090 
80138100 
8C138110 
80138 120 
80138130 
80138140 
80138150 
80138160 
80138170 
80138180 
80138190 
8C1382O0 
80138210 
80138220 
80138230 
80138240 
80138250 
80138260 
80138270 
80138280 
8C138290 
80138300 
80138310 
80138320 
80138330 
80138340 
80138350 
80138360 
80138370 
80138380 
80138390 
80138400 
80138410 
80138420 
80138430 
80138440 
80138450 
80138460 
80138470 
80138480 
80138490 
80138 500 
80138510 



0992 4C00 058E 



BSC 



W6 



0994 





3022 


TRP22 


WAIT 


/22 


0995 





70FE 


* 


MDX 


TRP22 


0996 




0000 


BSS 


E 


0996 





6100 


LDX1 


LDX 


1 


0997 





C100 




LD 


1 


0998 





2C2C 


ASTR2 


DC 


/2C2C 


0999 





0500 


T0C43 


DC 


/0500 


099A 





0100 


LI0C1 


DC 


/0100 


0998 





0701 


LI0C2 

* 


DC 


/0701 



RETURN TO LOADER 

ERROR TRAP 22 

* REQ DEVICE BUSY 



09FO 



09F0 





FFFF 


09F1 





0100 


09F2 





C0C1 


09F3 





002A 


09F4 





OF 18 


09F5 





1E0F 


09F6 





1C00 


09F7 





1619 


09F8 





OBOE 


09F9 





0019 


09FA 





1A1E 


09FB 





1319 


09FC 





181D 



ORG 



/09F0 



******* ********************************** ********** 

* * 

* * * *** ***** ***** * 

* ******* * 

* ***** * **** * 

* ******* * 

* * * *** * ***** * 

* * 
*************************************************** 

* THE FOLLOWING SECTIONS OF MONITOR ARE RELOCATED 

* INTO THE HIGHEST AVAILABLE CORE LOCATIONS BY THE 

* MONITOR SYSTEM EDIT ROUTINE. THE ADDRESS PORTION 

* OF LONG INSTRUCTIONS WHICH APPEAR IN THIS LISTING 

* AS LABLE+/F000 MAY BE MODIFIED BY A RELOCATION 

* FACTOR. THE RELOCATION FACTOR USED WILL ALWAYS 
BE A MULTIPLE OF /10C0 SO THAT THE LOCATION OF 
ANY INSTRUCTION IN CORE MAY BE FOUND BY ADDING 
THE 5 HIGH ORDER BITS OF THE HIGHEST CORE ADDRESS 
TO THE ADDRESS AS IT APPEARS IN THE LISTING. 



* 

* 

* 

* 

* 

*************************************************** 

*************************************************** 

* MONITOR ENGLISH MESSAGE TABLE 
*************************************************** 
*************************************************** 

* THIS SECTION CONTAINS THE CODE FOR THE ENGLISH 

* PORTION OF ALL MONITOR PRINTOUTS. THE CODE IN 
THIS TABLE IS CONVERTED TO EITHER 1816 OR 1443 
PRINTER COOE BY THE MONITOR EDIT ROUTINE. 



THIS TABLE MAY BE OVERLAID WHEN TEST PROGRAMS ARE 
LOADEO. THE PORTION OF THE TABLE PRIOR TO 
ADDRESS CKPNT IS USED ONLY WHEN MONITOR IS THE 
ONLY PROGRAM IN CORE AND MAY THEREFORE BE OVER- 
LAIO WITHOUT AFFECTING MONITOR OPERATION. THE 
PORTION OF THE TABLE FOLLOWING CKPNT IS HOWEVER 
NORMALLY USED THROUGHOUT OPERATION OF THE MONITOR 
IF ANY PORTION OF THE TABLE FCLLOWING CKPNT IS 
OVERLAID NO FURTHER ENGLISH WILL BE PRINTED WITH 
ANY MESSAGE. 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

ENGT1 DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/FFFF 

/0100 

/C001 

42 

/0F18 

/1E0F 

/1C00 

/1619 

/OBOE 

/0019 

/1A1E 

/1319 

/181D 



TERMINATOR 



EN 
TE 
R 

LO 
AD 

PT 
10 
NS 



80138520 
80138530 
80138540 
80138550 
80138560 
80138570 
80138580 
80138590 
80138600 
80138610 
80138620 
80138630 
80138640 
80138650 
80138660 
80138670 
80138680 
80138690 
80138700 
80138710 
80138720 
80138730 
80138740 
80138750 
80138760 
80138770 
80138780 
80138790 
80138800 
80138810 
80138820 
80138830 
80138840 
8C138850 
80138860 
80138870 
80138880 
80138890 
80138900 
80138910 
80138920 
80138930 
80138940 
80138950 
80138960 
80138970 
80138980 
80138990 
80139000 
80139010 
80139020 
80139030 
80139040 
80139050 
80139060 
80139070 
8C139080 
80139090 
80139100 
80139110 
80139120 
80139130 
80139140 
80139150 
80139160 
80139170 
80139180 
8C139190 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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09FD 





0013 


DC 


/0013 


I 




09FE 





1800 


DC 


/1800 


N 




09FF 





OEOF 


DC 


/OEOF 


DE 




OAOO 





001D 


DC 


/OOID 


S 




0A01 





211D 


DC 


/2110 


WS 




0A02 





2D00 


DC 


/2D00 


? 




0A03 





1A1C 


DC 


/1A1C 


PR 




0A04 





OF ID 


DC 


/0F1D 


ES 




0A05 





1D00 


DC 


/1D00 


S 




0A06 





1D1E 


DC 


/1D1E 


ST 




0A07 





0B1C 


DC 


/0B1C 


AR 




0A08 





1E0O 


DC 


/1EO0 


T 




0A09 





0016 


DC 


22 






OAOA 





0000 


DC 


/oooo 






OAOB 





0001 


DC 


/0001 





. 


OAOC 





2605 


DC 


/2605 


-4 




OAOO 





2F1A 


DC 


/2F1A 


= P 




OAOE 





1C19 


DC 


/1C19 


RO 




OAOF 





1100 


DC 


/1100 


G 




0A10 





1619 


DC 


/1619 


LO 




OAll 





OBOE 


DC 


/OBOE 


AD 




0A12 





OOOB 


DC 


/OOOB 


A 




0A13 





OEOE 


DC 


/OEOE 


DD 




0A14 





1C00 


DC 


/1C00 


R 




0A15 





0012 


DC 


18 






0A16 





0000 


DC 


/OOOO 






0A17 





0826 


DC 


/0826 


7- 




0A18 





1918 


DC 


/1918 


ON 




0A19 





2F16 


DC 


/2F16 


= L 




0A1A 





190B 


DC 


/190B 


OA 




0A1B 





OEOO 


DC 


/OEOO 


D 




0A1C 





0B18 


DC 


/0B18 


AN 




0A1D 





OEOO 


DC 


/OEOO 


D 




0A1E 





1119 


DC 


/1119 


GO 




0A1F 





0038 


DC 


56 






0A20 





0000 


DC 


/OOOO 






0A21 





0926 


DC 


/0926 


8- 




0A22 





1918 


DC 


/1918 


ON 




0A23 





2F0C 


DC 


/2F0C 


=B 




0A24 





1919 


DC 


/1919 


00 




0A25 





1E1D 


DC 


/1E1D 


TS 




0A26 





1E1C 


DC 


/1E1C 


TR 




0A27 





0B1A 


DC 


/0B1A 


AP 




0A28 





2D00 


DC 


/2DO0 


» 




0A29 





1910 


DC 


/1910 


OF 




0A2A 





102F 


DC 


/102F 


F= 




0A2B 





1920 


DC 


/1920 


OV 




0A2C 





0F1C 


DC 


/0F1C 


ER 




0A20 





160B 


DC 


/160B 


LA 




0A2E 





1A00 


DC 


/1A00 


P 




0A2F 





2919 


DC 


/2919 


(0 




0A30 





1010 


DC 


/1010 


FF 




0A31 





001E 


DC 


/001E 


T 




0A32 





1900 


DC 


/1900 







0A33 





1619 


DC 


/1619 


LO 




0A34 





OBOE 


DC 


/OBOE 


AD 




0A35 





OOOF 


DC 


/OOOF 


E 




0A36 





1811 


DC 


/1811 


NG 




0A37 





1613 


DC 


/1613 


LI 




0A38 





1D12 


DC 


/1D12 


SH 




0A39 





OOOE 


DC 


/OOOE 


D 




0A3A 





OFOD 


DC 


/OFOD 


EC 




0A3B 





152A 


DC 


/152A 


K) 




0A3C 





0022 


DC 


34 






0A3D 





0002 


DC 


/0002 


1 




0A3E 





0626 


DC 


/0626 


5- 




0A3F 





1918 


DC 


/1918 


ON 




0A40 





2F0C 


DC 


/2F0C 


=B 


OATE 


28FEB66 01JUL66 


04NOV66 


03JUL68 


14N0V69 


EC NO. 


415120 415178 


415233 


411944 


431319 



80139200 


0A41 





231A 


DC 


/231A 


YP 


80139210 


0A42 





0B1D 


DC 


/0B1D 


AS 


80139220 


0A43 





1D00 


DC 


/1D00 


S 


80139230 


0A44 





191A 


DC 


/191A 


OP 


80139240 


0A45 





OOID 


DC 


/OOID 


S 


80139250 


0A46 





IF 17 


DC 


/1F17 


UM 


80139260 


0A47 





170B 


DC 


/170B 


MA 


80139270 


0A48 





1C23 


DC 


/1C23 


RY 


80139280 


0A49 





00 1A 


DC 


/001A 


P 


80139290 


0A4A 





1C13 


DC 


/1C13 


RI 


80139300 


0A4B 





181E 


DC 


/181E 


NT 


80139310 


0A4C 





19 IF 


DC 


/191F 


OU 


80139320 


0A4D 





1E00 


DC 


/1E00 


T 


80139330 


0A4E 





OOOO 


DC 







80139340 


0A4F 





0014 


DC 


20 




80139350 


0A50 





211C 


DC 


/211C 


WR 


80139360 


0A51 





1E0O 


DC 


/1E00 


T 


80139370 


0A52 





1D1E 


DC 


/1D1E 


ST 


80139380 


0A53 





191C 


DC 


/191C 


OR 


80139390 


0A54 





00 1A 


DC 


/001A 


P 


80139400 


0A55 





1C19 


DC 


/1C19 


RO 


80139410 


0A56 


c 


1E00 


DC 


/1E00 


T 


80139420 


0A57 
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0D8D 





OEOO 


DC 


/OEOO 


D 


80147650 


0D8E 





FFFF 


DC 


/FFFF 




80147660 








* 






80147670 


0D8F 





0000 


DC 







80147680 


0D90 





0000 


DC 







80147690 


0D91 





0064 


DC 


100 




80147700 


0092 





0000 


HDNG DC 


/OOOO 




80147710 


0093 





1A13 


DC 


/1A13 


PI 


8C147720 


0D94 





OEOO 


DC 


/OEOO 


D 


80147730 


0095 





0017 


DC 


/0017 


M 


80147740 


0D96 





130E 


DC 


/130E 


ID 


80147750 


0D9 7 





0000 


OC 


/OOOO 




80147760 


0D98 





1C13 


DC 


/1C13 


RI 


80147770 


0D99 





OEOO 


DC 


/OEOO 


D 


80147780 


0D9A 





001C 


DC 


/001C 


R 


80147790 


0D9B 





OBOE 


DC 


/OBOE 


AD 


8C147800 


009C 





0000 


DC 


/OOOO 




80147810 


0D9D 





0017 


DC 


/0017 


M 


80147820 


0D9E 





190E 


DC 


/190E 


00 


80147830 


0D9F 





0200 


DC 


/0200 


1 


80147840 


ODAO 





1719 


DC 


/1719 


MO 


80147850 


0DA1 





0E03 


DC 


/0E03 


D2 


80147860 


0DA2 





0017 


DC 


/0017 


M 


80147870 


0DA3 





190E 


DC 


/190E 


OD 


80147880 


0DA4 





0400 


DC 


/0400 


3 


80147890 


0DA5 





1719 


DC 


/1719 


MO 


80147900 


0DA6 





0E05 


DC 


/0E05 


D4 


80147910 


0DA7 





0017 


DC 


/0017 


M 


80147920 


0DA8 





190E 


DC 


/190E 


OD 


80147930 


0DA9 





0600 


DC 


/0600 


5 


80147940 


ODAA 





1719 


OC 


/1719 


MO 


80147950 


ODAB 





0E07 


DC 


/0E07 


D6 


80147960 


ODAC 





0017 


DC 


/0017 


M 


80147970 


OOAD 





190E 


DC 


/190E 


OD 


80147980 


ODAE 





0800 


DC 


/0800 


7 


80147990 


ODAF 





1719 


DC 


/1719 


MO 


80148000 


OOBO 





0E09 


DC 


/0E09 


D8 


80148010 


0DB1 





0017 


OC 


/0017 


M 


80148020 


0DB2 





190E 


DC 


/190E 


OD 


80148030 


0DB3 





OAOO 


DC 


/OAOO 


9 
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80148040 
80148050 
80148060 
80148070 
80148080 
80148090 
80148100 
80148110 
80148120 
80148130 
80148140 
80148150 
80148160 
80148170 
80148180 
80148190 
80148200 
80148210 
80148220 
80148230 
80148240 
80148250 
80148260 
80148270 
80148280 
80148290 
80148300 
80148310 
80148320 
80148330 
80148340 
80148350 
80148360 
80148370 
8C148380 
80148390 
80148400 
80148410 
80148420 
80148430 
80148440 
80148450 
80148460 
80148470 
80148480 
80148490 
80148500 
80148510 
80148520 
80148530 
80148540 
80148550 
80148560 
80148570 
80148580 
80148590 
80148600 
80148610 
80148620 
80148630 
80148640 
80148650 
80148660 
80148670 
80148680 
80148690 
80148700 
80148710 
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0DB4 





1719 


DC 


/1719 


MO 


0DB5 





OEOB 


DC 


/OEOB 


DA 


0DB6 





0017 


DC 


/0017 


M 


0DB7 





190E 


DC 


/190E 


OD 


0DB8 





OCOO 


DC 


/OCOO 


B 


0DB9 





1719 


DC 


/1719 


MO 


ODBA 





OEOD 


DC 


/OEOD 


DC 


ODBB 





0017 


DC 


/0017 


M 


ODBC 





190E 


DC 


/190E 


OD 


ODBD 





OEOO 


DC 


/OEOO 


D 


ODBE 





1719 


DC 


/1719 


MO 


OOBF 





OEOF 


DC 


/OEOF 


DE 


ODCO 





0000 


SPS DC 


/OOOO 




0DC1 





0000 


DC 


/OOOO 




0DC2 





0000 


DC 


/OOOO 




00C3 





0000 


DC 


/OOOO 




0DC4 





FFFF 


DC 


/FFFF 




0DC5 





FFFF 


DC 


/FFFF 




0DC6 





FFFF 


DC 


/FFFF 





0DC7 OOOO 



0DC8 
ODCA 
ODCB 
ODCD 
ODCF 



6C00 FE12 
6140 

6D00 FE6F 
6680 FDC7 
6101 



*************************************************** 
*************************************************** 

* ENGLISH MESSAGE DECK LOADER 
*************************************************** 
*************************************************** 

* THIS ROUTINE READS THE DATA CARDS IN THE MONITOR 
ENGLISH LANGUAGE DECK, CONVERTS THE CODE TO 
EITHER 1816 OR 1443 PRINTER CODE DEPENDING ON 
THE SELECTED LOG DEVICE, AND STORES THE ENGLISH 
MESSAGES INTO THE UNUSED STORAGE THAT IS LEFT 
AFTER ALL TEST PROGRAMS HAVE BEEN LOADED. ONLY 
THOSE PORTIONS OF THE ENGLISH DECK WHICH APPLY 
TO PROGRAMS IN CORE ARE LOADED. 



ODDO 7600 015E 
0DD2 1000 
0DD3 6AF3 

0DD4 4048 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

LDENG DC 

* 

STX 
LDX 
STX 
LDX 
LDX 

* 

MDX 
NOP 
STX 

* 

LENG1 BSI 



IF CORE BECOMES FULL WHILE LOADING THE ENGLISH 
DECK THIS ROUTINE WILL PRINT THE A004 MESSAGE 
AND FEED ALL REMAINING CARDS THRU THE READER. 
IF THIS OCCURS ENGLISH WILL BE PRINTED FOR 
MONITOR MESSAGES ONLY. 

THIS ROUTINE MAY BE OVERLAID BY TEST PROGRAMS. 

IF THIS OCCURS NC FURTHER ENGLISH WILL BE PRINTED 

THIS ROUTINE CONSISTS OF THREE SUBROUTINES 
WHICH PERFORM THE FOLLOWING FUNCTIONS. 

LDENG-THIS ROUTINE CONVERTS THE INPUT DATA TO 
THE PROPER PRINTER CODE. 

STENG-THIS ROUTINE STORES THE CONVERTED CODE AT 
THE PROPER LOCATION IN CORE. 

RDENG-THIS ROUTINE READS THE DATA CARDS. 

*-* 



L STOSW+/F0OO SET STORE SWITCH 

1 /0040 
LI CDCT+/F000 INITIALIZE CARD COUNT 
12 LDENG+/F000 XR2=MSG STORE AREA ADDRS 

1 1 INITIALIZE COLUMN COUNT 

L2 350 



2 LDENG 



RDENG 



READ WORD FROM CARD 



80148720 
8C148730 
80148740 
80148750 
80148760 
8C148770 
80148780 
80148790 
80148 800 
80148810 
80148820 
80148830 
80148840 
8C148850 

80148 860 
80148870 
80148880 
80148890 
80148900 
80148910 
80148920 
80148930 
80148940 
80148950 
80148960 
80148970 
80148980 
80148990 
80149000 
80149010 
80149020 
80149030 
80149040 
80149050 
80149060 
80149070 
80149080 
80149090 
80149100 
80149110 
80149120 
80149130 
80149140 
80149150 
80149160 
80149170 
80149180 
80149190 

80149 200 
80149210 
80149220 
80149230 
80149240 
80149250 
80149260 
80149270 
80149280 
8C149290 
80149300 
80149310 
80149320 
80149330 
80149340 
80149350 
80149360 
8C149370 
80149380 
80149390 



0DD5 1884 

0DD6 B400 04A4 
ODDS 701C 
0DD9 701B 

ODDA 4038 

ODDB 4041 

ODDC 1888 
ODDD 1008 
ODDE D033 

ODDF C 67C0 0274 

0DE1 7301 
ODE 2 C300 
0DE3 4C18 FDEC 

0DE5 C780 OOOO 
00E7 F02A 
0DE8 1002 
0DE9 4C20 FDE 1 

ODEB C026 

ODEC D025 

ODED 4025 

ODFE 402E 

ODEF 18D0 
ODFO 180C 
0DF1 108C 

0DF2 4020 

0DF3 4029 

0DF4 1884 
0DF5 401D 

0DF6 D079 
0DF7 4C08 FDD4 

0DF9 4023 

ODFA 188A 

ODFB 100A 

ODFC 180A 

ODFD DOOA 

ODFE 1010 
ODFF 1086 
OEOO DOOl 

OEOl 6700 OOOO 

0E03 C700 FE99 

0EO5 1888 

0E06 1888 

0EO7 6700 OOOO 
0E09 C7C0 FE99 
OEOB 1808 
OEOC 1088 



SRT 

CMP 
MDX 
MDX 

BSI 

BSI 

SRT 
SLA 
STO 



* 
LENG7 



* 

LENG2 

* 

* 

* 



* 
* 
* 

LENG3 

* 



* 
LENG4 

* 



* 
LENG5 



* 
LENG6 



MDX 

LD 

BSC 

LD 
EOR 
SLA 
BSC 

LD 

STO 

BSI 

BSI 

RTE 
SRA 
SLT 

BSI 

BSI 

SRT 
BSI 

STO 
BSC 

BSI 

SRT 
SLA 
SRA 

STO 

SLA 
SLT 
STO 

LDX 
LD 
SRT 
SRT 

LDX 
LD 
SRA 
SLT 



EOED 

LENG3 

LENG3 

STENG 

RDENG 

8 
8 
STOSW 



LDX L3 MPIDT 



BRANCH IF WORD IS 

* NOT A TERMINATOR /FFFF 

STORE TERMINATOR 

READ WORD FROM CARD 

PUT MID SECTION IN Q 

SAVE PID 

XR3=PID TABLE ADDR 

INCRE ADDR BY ONE 
FETCH PID TBL ENTRY 



3 1 
3 
L LENG2+/F000.+- BR IF END OF TABLE 

13 FETCH PID FROM PROGRAM 

STOSW COMPARE WITH 

2 PID ON CARD 

L LENG7+/F000,Z BR IF NOT SAME PID 



STOSW 

STOSW 

STENG 

RDENG 

16 
12 
12 

STENG 

RDENG 

4 
STENG 

CNT 



FETCH PID 

SET/RESET STORE SWITCH 

STORE PID 

READ WORD FROM CARD 

POSITION MID IN ACC 

STORE MID 

READ WORD FROM CARD 

STORE CHARACTER COUNT 
SET COUNTER=CHAR COUNT 



L LENG1+/F000.+ BR IF ZERO COUNT 



RDENG 

10 
10 
10 
LENG6H 

16 

6 

LENG5+1 



READ WORD FROM CARD 



SAVE 1ST CHARACTER 



SAVE 2ND CHARACTER 



L3 *-* XR3=2ND CHAR NUMBER 

L3 CDTBL+/F00O FETCH PRINT CODE 2ND CHAR 

8 PUT CODE IN Q 

8 NOP IF 1443 

L3 *-* XR3=1ST CHAR NUMBER 

L3 CDTBL+/FOOO FETCH PRINT CODE 1ST CHAR 

8 NOP IF 1443 

8 COMBINE TWO CHARACTERS 



80149400 
80149410 
80149420 
80149430 
80149440 
80149450 
80149460 
80149470 
80149480 
80149490 
80149500 
80149510 
80149520 
80149530 
80149 540 
80149550 
80149560 
80149570 
80149580 
80149590 
80149600 
80149610 
80149620 
80149630 
80149640 
80149650 
80149660 
80149670 
80149680 
80149690 
80149700 
80149710 
80149720 
80149730 
80149740 
80149750 
80149760 
80149770 
80149780 
80149790 
80149800 
80149810 
80149820 
80149830 
80149840 
80149850 
80149860 
80149870 
80149880 
80149890 
80149900 
80149910 
80149920 
80149930 
80149940 
80149950 
80149960 
80149970 
80149980 
80149990 
8C150000 
80150010 
8C150020 
80150030 
80150040 
80150050 
80150060 
80150070 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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OEOD 4005 

OEOE 74FE FE70 
0E10 70E8 
0E11 70C2 

0E12 0000 



0E13 OOCO 

0E14 7400 FE12 
0E16 7002 

0E17 4C80 FE13 

0E19 0200 

0E1A 7201 
0E1B 1000 
0E1C 70FA 



0E10 0000 

0E1E 71FF 
0E1F 7036 

OE20 7400 0070 
0E22 703A 

0E23 6A50 
0E24 6A21 
0E25 7447 FE46 
0E27 1000 

0E28 C400 03E0 
0E2A F049 
0E2B 4C28 FE40 

0E2D C400 03E0 
0E2F 9044 
0E30 9040 
0E31 4C30 FE40 

0E33 OCOO FE76 
0E35 4044 
0E36 70FC 

0E37 7400 0070 
0E39 7001 
0E3A 70F8 

0E3B 4400 033C 
0E3D A004 

0E3E 4C80 0123 

0E40 0833 
0E41 4038 
0E42 70F0 

0E43 C02B 
0E44 63B9 
0E45 8700 0000 
0E47 4802 



BSI 

MDX 
MDX 

MDX 



STENG 



STORE TWO CHARACTERS 



* 
ST05W 

* 

* 
STENG 

* 



DC 



L CNT+/F00O,-2 OECRE COUNT BY TWO 
LENG4 BR COUNT NOT ZERO 

LENG1 BR COUNT ZERO 

*-* 



* 
SENG1 

* 

SENG2 



DC 

MDX 
MDX 

BSC 

STO 

MDX 
NOP 
MDX 



L STOSW+/FOOO CHECK IF STORE SWITCH 
SENG2 * IS SET 

I STENG+/FOOO RETURN 

2 STORE WORO IN MSG AREA 

2 1 INCRE MSG AREA ADDRS 

SENG1 RETURN 



RDENG 



* 
RENG1 



RENG2 



* 

RENG3 
A 004 

RENG4 



RENG5 



DC 

MDX 
MOX 

MDX 
MDX 

STX 
STX 

MDX 
NOP 

LD 

EOR 

BSC 

LD 
S 
S 
BSC 

XIO 
BSI 

MDX 

MDX 
MDX 
MOX 

BSI 

DC 

BSC 

XIO 
BSI 

MDX 

LD 
LDX 
A 
BSC 



1 -1 OECRE COLUMN COUNT 
RENG7 BR COLUMN CNT NOT ZERO 

L RLBA+1 BR IF LAST CARD 

RENG8 * HAS BEEN PROCESSED 

2 MI0C7 SET CARD READ AREA 
2 RENG5+1 SET END READ AREA 

L RENG5+/F001.71 



MI0C6 
MI0C7 
RENG4+/F000.Z+ BR IF CORE NOT FULL 



MI0C6 
MI0C7 
M0080 
RENG4+/F000.Z- 



BR IF CORE IS NOT FULL 



MIOC8+/FOO0 CORE FULL — FEEO CARDS 



CKDSW 

RENG2 

L RLBA+1 
RENG3 
RENG2 

L MSI 
/A004 

I MLCD 

MI0C7 
CKDSW 
RENG4 

COCT 
3 -71 

L3 *-* 
C 



CHECK DSW 
ERROR BIT ON 

CHECK LAST CARD SWITCH 

BR IF LAST CARD 

BR IF NOT LAST CARD 

INITIALIZE MONITOR AND 
* PRINT A004 MSG 

GO TO EXECUTE PROGRAMS 

READ A CARO 
CHECK DSW 
ERROR BIT ON 



CHECK CARD SEQUENCE 
* AND CHECK-SUM 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04N0V66 
415233 



03JUL68 
411944 



14N0V69 
431319 



80150080 


0E48 





8029 






A 




H0010 


80150760 




80150090 


0E49 


C 


7301 






MDX 


3 


1 


80150770 




80150100 


0E4A 





70FA 






MDX 




RENG5 


80150780 




80150110 










* 








80150790 




80150120 


0E4B 





8026 






A 




H0010 


80150800 




80150130 


0E4C 





4C18 


FE53 




BSC 


L 


RENG6+/F000.+- BR IF NO ERRORS 


80150810 




80150140 










* 








80150820 




80150150 


0E4E 





C24D 






LD 


2 


77 


80150830 




80150160 


0E4F 





4C18 


FE20 




BSC 


L 


RENG1+/F000.+- BR IF BLANK CARD 


80150840 




80150170 










* 








80150850 




80150180 


0E51 





4039 






BSI 




RDERR CARD READ ERROR 


80150860 




80150190 


0E52 





70ED 






MDX 




RENG4 * CHECK-SUM ERROR 


80150870 




80150200 










* 








80150880 




80150210 


0E53 





7410 


FE6F 


RENG6 


MDX 


L 


CDCT+/F000.16 INCRE CARD COUNT 


80150890 




8C150220 


0E55 





6146 






LDX 


1 


70 


80150900 




80150230 










* 








80150910 




80150240 


0E56 





C480 


FE74 


RENG7 


LD 


I 


MI0C7+/F000 GET WORD FROM READ AREA 


80150920 




80150250 


0E58 





7401 


FE74 




MDX 


L 


MIOC7+/F000.1 INCRE READ AREA ADDRS 


80150930 




80150260 


0E5A 





1000 






NOP 






80150940 




80150270 


0E5B 





4C80 


FE1D 




BSC 


I 


RDENG+/FOOO RETURN 


80150950 




80150280 










* 






- 


80150960 




80150290 


0E5D 





C400 


04A4 


RENG8 


LD 


L 


EOED 


80150970 




80150300 


0E5F 





D200 






STO 


2 


STORE TWO TERMINATORS 


80150980 




80150310 


0E60 





0201 






STO 


2 


1 * IN MSG AREA 


80150990 




80150320 










* 








80151000 




80150330 


0E61 





COOE 






LD 




CNT 


80151010 




80150340 


0E62 





4C18 


FE69 




BSC 


L 


RENG9+/F000 t +- BR IF CHAR CNT ZERO 


80151020 




80150350 










* 








80151030 




80150360 


0E64 





4026 






BSI 




RDERR ERROR — CARDS MISSING 


80151040 




80150370 


0E65 





1010 






SLA 




16 * FROM ENGLISH MSG DECK 


80151050 




8C150380 


0E66 


c 


D4 00 


0070 




STO 


L 


RLBA+1 


80151060 




80150390 


0E68 





70B7 






MDX 




RENG1 


80151070 




80150400 










* 








80151080 




80150410 


0E69 





6580 


FDC7 


RENG9 


LDX 


11 


LDENG+/FOOO 


80151090 




80150420 


0E6B 





6D00 


0572 




STX 


LI 


AREA1 STORE MSG AREA ADDRS 


80151100 




80150430 










* 








80151110 




80150440 


0E6D 





4C80 


0123 




BSC 


I 


MLCD GO TO EXECUTE PROGRAMS 


80151120 




80150450 










* 








80151130 




80150460 


0E6F 





0000 




COCT 


DC 




*-* 


80151140 




80150470 


0E70 





0000 




CNT 


DC 




*-* 


80151150 




80150480 


0E71 





0050 




M0080 


DC 




80 


80151160 




80150490 


0E72 





0010 




H0010 


DC 




/0010 


80151170 




80150500 










* 








80151180 




80150510 


0E74 




0000 






BSS 


E 





80151190 




80150520 


0E74 





0000 




MI0C7 


DC 




*-* 


80151200 




80150530 


0E75 





1600 






DC 




/1600 


80151210 




80150540 


0E76 





0000 




Mioca 


DC 







80151220 




80150550 


0E77 





1402 






DC 




/1402 


80151230 




80150560 


0E78 





0000 




MI0C9 


DC 







80151240 




80150570 


0E79 





1701 






DC 




/1701 


80151250 




80150580 










* 








80151260 




80150590 










* 








80151270 




80150600 


0E7A 





0000 




CKDSW 


DC 




*-* 


80151280 




8C150610 


0E7B 





08FC 






XIO 




MI0C9 SENSE DSW 


80151290 




80150620 


0E7C 





1002 






SLA 




2 


80151300 




80150630 


0E70 





4C10 


FE81 




BSC 


L 


CKDS1+/F00O,- BR IF ERR BIT ZERO 


80151310 




80150640 










* 








80151320 




80150650 


0E7F 





400B 






BSI 




RDERR DSW ERR BIT ON 


80151330 




80150660 


0E80 





7008 






MDX 




CKDS2 * CARD READ ERROR 


80151340 




80150670 










* 








80151350 




80150680 


0E81 





1802 




CKDS1 


SRA 




2 


80151360 




80150690 


OE82 





4C04 


FE7B 




8SC 


L 


CK0SW+/F001.E LOOP UNTIL READY 


80151370 




80150700 










* 








80151380 




80150710 


0E84 





180C 






SRA 




12 SET LAST CARO INDICATOR 


80151390 




80150720 


0E85 





0400 


0070 




STO 


L 


RLBA+1 * IF LC BIT IS ON IN DSW 


80151400 




80150730 










* 








80151410 




80150740 


0E87 





7401 


FE7A 




MDX 


L 


CKDSW+/F000.1 SET NORMAL RETURN ' 


80151420 




80150750 


0E89 





4C80 


FE7A 


CKDS2 


BSC 


I 


CKDSW+/FO0O RETURN 


80151430 




PROG ID 0801-2 


DATE 28FEB66 01JUL66 


04NOV66 


03JUL68 14N0V69 


PROG ID 


0801-2 


PAGE 38 


EC NO. 415120 415178 


415233 


411944 431319 


PAGE 


38A 



I [( I ( I I I I I I I I I I I 1 I I I ( I I (<<((<< I 1(11 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 2196354 
PAGE 39 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOB THE 1800 SYSTEM 
DIAGNOSTIC MONITOR 



PART NO. 2196354 
PAGE 39A 



0E8B 0000 

0E8C 6A04 

0E8D 4400 033C 
0E8F E006 

0E90 6600 0000 
0E92 OCOO 0308 
0E94 OCOO 030A 

0E96 300C 

0E97 4C80 FE8B 



0E99 





2100 


0E9A 





C40A 


0E9B 





FC01 


0E9C 





D802 


0E9D 





DC 03 


0E9E 





F004 


0E9F 





F405 


OEAO 





D006 


0EA1 





D407 


0EA2 





E408 


0EA3 





E009 


0EA4 





3E31 


0EA5 





1A32 


0EA6 





1E33 


0EA7 





3234 


0EA8 





3635 


0EA9 





1236 


OEAA 





1637 


OEAB 





2638 


OEAC 





2239 


OEAD 





7E21 


OEAE 





5A22 


OEAF 





5E23 


OEBO 





7224 


0EB1 





7625 


0EB2 





5226 


0EB3 





5627 


0EB4 





6628 


0EB5 





6229 


0EB6 





9A12 


0EB7 





9E13 


0EB8 





B214 


0EB9 





B615 


OEBA 





9216 


OEBB 





9617 


OEBC 





A618 


OEBD 





A219 


OEBE 





DA10 


OEBF 





8420 


OECO 





BC11 


0EC1 





D62C 


0EC2 





FE1C 


0EC3 





F63C 


0EC4 





4430 


0EC5 





003B 


0EC6 





801B 


0EC7 





061A 


0EC8 





C20B 


0EC9 


c 


E60D 


OECA 





C02A 



RDERR 


DC 


*-* 




* 


STX 


2 *+4 


SAVE XR2 


BSI 


L MSI 




E006 


DC 


/E006 


PRINT E006 MSG 




LDX 


L2 *-* 


RESTORE XR2 




XIO 


L MK15 




* 
EWTC 


XIO 


L MK23 




WAIT 


/C 


ERROR WAIT C 


* 






* CARD READ ERROR 


ft 


BSC 


I RDERR+/F0OO 


CDTBL 


DC 


/2100 


SPACE 




DC 


/C40A 







DC 


/FC01 


1 




DC 


/D802 


2 




DC 


/DC03 


3 




DC 


/F004 


4 




DC 


/F405 


5 




DC 


/D006 


6 




DC 


/D407 


7 




DC 


/E408 


8 




DC 


/E009 


9 




DC 


/3E31 


A 




DC 


/1A32 


B 




DC 


/1E33 


C 




DC 


/3234 


D 




DC 


/3635 


E 




DC 


/1236 


F 




DC 


/1637 


G 




DC 


/2638 


H 




DC 


/2239 


I 




DC 


/7E21 


J 




DC 


/5A22 


K 




DC 


/5E23 


L 




DC 


/7224 


M 




DC 


/7625 


N 




DC 


Z5226 







DC 


/5627 


P 




DC 


Z6628 


Q 




DC 


/6229 


R 




DC 


/9A12 


S 




DC 


/9E13 


T 




DC 


/B214 


U 




DC 


/B615 


V 




DC 


/9216 


w 




DC 


/9617 


X 




DC 


/A618 


Y 




DC 


/A219 


I 




DC 


/DA10 


+ 




DC 


/8420 


- 




DC 


/BC11 


1 




DC 


/D62C 


* 




OC 


/FE1C 


( 




DC 


/F63C 


) 




DC 


/4430 


£ 




DC 


/003B 


. 




DC 


/801B 


, 




DC 


/061A 


% 




DC 


/C20B 


= 




DC 


/E60D 


i 


* 
***** 


DC 


/C02A 


# 


************************************* 



80151440 
80151450 
80151460 
80151470 
8C151480 
80151490 
80151500 
80151510 
80151520 
80151530 
80151540 
80151550 
80151560 
80151570 
8C151580 
80151590 
80151600 
80151610 
80151620 
80151630 
80151640 
80151650 
80151660 
80151670 
80151680 
8C151690 
80151700 
80151710 
80151720 
80151730 
80151740 
80151750 
80151760 
80151770 
80151780 
80151790 
80151800 
80151810 
80151820 
80151830 
80151840 
80151850 
80151860 
80151870 
8C151880 
8C151890 
80151900 
80151910 
80151920 
80151930 
80151940 
80151950 
80151960 
80151970 
80151980 
80151990 
80152000 
80152010 
80152020 
8C152030 
80152040 
80152050 
80152060 
80152070 
8C152080 
80152090 
80152100 
80152110 



OECB 0000 

OECC 7400 04F9 
OECE 7007 



OECF 
0ED1 
0ED2 
0ED4 
0ED5 



6CC0 04F9 
61F6 







D500 FFB6 

7101 

70FC 



0ED6 6580 06C4 
0ED8 C C100 
0ED9 1883 
OEDA 1805 
OEDB 4CA0 FECB 

OEDD 1083 

OEDE D400 FFAA 

OEEO C400 0320 

0EE2 100A 

0EE3 4CA8 FECB 

0EE5 C1C1 
0EE6 D400 FFA7 

0EE8 C102 
0EE9 1890 
OEEA C400 0330 



*************************************************** 

* ENGLISH MESSAGE PRINT ROUTINE 
*************************************************** 
*************************************************** 

* THE MONITOR LOG ROUTINE NORMALLY XFERS TO THIS 

ROUTINE FOR EACH MESSAGE THAT IS TO BE PRINTED. 

BEFORE THE XFER THE LOG ROUTINE CHECKS IF THIS 

ROUTINE HAS BEEN OVERLAID BY TEST PROGRAMS. IF 

SO, NO XFER IS MADE AND THE NORMAL HEX/DEC MSG 

IS PRINTED BY THE LOG ROUTINE WITHOUT ENGLISH. 



THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS. 



1. 



* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 3 

* 4 
* 

* 5 
* 

* 

ENG 

* 



ENG1 



* 
ENG2 



2. 



XFERS CONTROL BACK TO THE LOG ROUTINE FOR 
PRINTING OF THE NORMAL MESSAGE WITHOUT 
ENGLISH IF ANY OF THE FOLLOWING CONDITIONS 
EXIST. 

A. THE LOG CALL IS FOR A CONTINUATION LINE. 

B. THE BYPASS ENGLISH OPTION IS SELECTED. 

C. THE ENGLISH FOR THE CURRENT MSG HAS BEEN 
PRINTED WITH ONE OF THE LAST FOUR ENGLISH 
MESSAGES. 

D. THE LOG CALL IS BY A PROGRAM OTHER THAN 
MONITOR AND THE ENGLISH DECK HAS NOT 
BEEN LOADED. 

E. AFTER A SEARCH OF ALL ENGLISH TABLES IN 
CORE, THE PROPER ENGLISH MESSAGE HAS NOT 
BEEN FOUND. 

BUILDS THE HEADING MSG (PID, MID, ETC.) 
DEPENDING ON THE NUMBER AND TYPE (HEX/DEC) 
OF MODIFIERS AND CALLS ON LGOP IN THE LOG 
ROUTINE TO PRINT THE HEADING. 

CALLS ON LGOP TO PRINT THE NORMAL HEX/DEC MSG 
BUILD EACH LINE OF PRINT FROM THE ENGLISH 
TABLES AND CALLS ON LGOP TO PRINT EACH LINE. 
AFTER THE LAST LINE XFERS BACK TO THE MONITOR 
LOG ROUTINE. 



DC 

MDX 

MDX 

STX 
LDX 
STO 
MOX 
MDX 

LDX 

LD 

SRT 

SRA 

BSC 

SLT 

STO 

LO 

SLA 

BSC 

LD 
STO 

LD 

SRT 

LD 



L 

1 
LI 

1 



II 

1 



RSTSW 
ENG2 

RSTSW 

-10 

MSGID+/FOOA 

1 
ENG1 

LG3+1 



3 

5 

ENG+/FO0O, 



CHECK 
* HAS 



IF MONITOR RESTART 
BEEN EXECUTED 



SET RESTART INDICATOR 
CLEAR MSG ID STG AREA 



XR1=L0G STRING ADDRS 



Z BR IF CONTINUATION LINE 



WDCNT+/FOOO 

swo 

10 
ENG+/F000.Z+ 



BR IF BYPASS ENGLISH 



1 1 
L FLAGS+/FOOO SAVE HEX/DEC INDICATOR 



2 

16 

MAT02 



FETCH MID 
PUT IN Q 
FETCH PID 



80152120 
80152130 
80152140 
80152150 
80152160 
80152170 
80152180 
80152190 
80152200 
8015221C 
80152220 
80152230 
80152240 
80152250 
80152260 
80152270 
80152280 
80152290 
80152300 
80152310 
80152320 
80152330 
80152340 
80152350 
80152360 
80152370 
80152380 
80152390 
80152400 
80152410 
80152420 
89152430 
80152440 
80152450 
80152460 
80152470 
80152480 
80152490 
80152500 
80152510 
80152520 
80152530 
80152540 
80152550 
80152560 
80152570 
80152580 
80152590 
80152600 
80152610 
80152620 
80152630 
80152640 
80152650 
80152660 
8C15267C 
80152680 
8C152690 
80152700 
80152710 
80152720 
80152730 
80152740 
80152750 
80152760 
80152770 
80152780 
8C152790 



DATE 
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OEEC 





62F8 






LOX 


2 


-8 


80152800 






OEED 





BEOO 


FFB6 


ENG3 


DCM 


L2 


MSGID+/F00A CHECK IF ENGLISH FOR 


80152810 






OEEF 





7003 






MDX 




ENG5 * THIS MESSAGE HAS BEEN 


80152820 






OEFO 





7002 




* 


MDX 




ENG5 * PRINTED WITHIN LAST 
* 4 ENGLISH MESSAGES 


8C152830 
80152840 






0EF1 





4C80 


FECB 


ENG4 

* 


BSC 


I 


ENG+/FOOO EXIT, ENG HAS BEEN PRINTED 


80152850 
80152860 






0EF3 





7202 




ENG5 


MDX 


2 


2 


80152870 






0EF4 





70F8 




* 


MDX 




ENG3 


80152880 
8C152890 






0EF5 





6600 


FFF8 


ENG6 


LDX 


L2 


-8 


80152900 






0EF7 





DEOO 


FFB6 




STD 


L2 


MSGID+/FOOA SAVE MESSAGE ID 


80152910 






0EF9 





DC 00 


FFAC 


* 


STD 


L 


MSGID+/FOOO 


80152920 
80152930 






OEFB 





1003 






SLA 




3 


80152940 






OEFC 





F400 


FFA9 




EOR 


L 


MC800+/F000 


80152950 






OEFE 





4C20 


FF04 


* 


BSC 


L 


*+/F004,Z BR IF NOT PID 19 OR 39 


80152960 
80152970 






OFOO 





6500 


0900 




LDX 


LI 


/0900 


80152980 






0F02 





6D00 


FFAC 


* 


STX 


LI 


MSGID+/F000 MSG ID PID=09 


80152990 
80153000 






OF 04 





7202 






MDX 


2 


2 INCREMENT ROTATING 


80153010 






0F05 





7001 






MOX 




**1 * MESSAGE ID 


80153020 






0F06 





62F8 






LDX 


2 


-8 * STORAGE AREA 


80153030 






0F07 





6AEE 




* 


STX 


2 


ENG6+1 * ADDRESS 


80153040 
80153050 






0F08 





6680 


0572 




LDX 


12 


AREA1 GO SEARCH FOR 


80153060 






OFOA 





C400 


0572 




LD 


L 


AREA1 * ENGLISH MESSAGE IF 


80153070 






OFOC 





4420 


FF12 


* 


BSI 


L 


ENG1O+/F0OO.Z * ENG DECK LOADED 

NO RETURN IF MSG FOUND 


80153080 
80153090 






OFOE 





6680 


FFA8 




LDX 


12 


AREA2+/F000 


80153100 






0F10 





4001 






BSI 




ENG10 SEARCH FOR MONITOR ENG 


80153110 






0F11 





70DF 




* 


MDX 




ENG4 EXIT, NO ENGLISH FOUND 


80153120 
80153130 






0F12 





0000 




ENG10 

* 


OC 




*-* 


80153140 
80153150 






0F13 





C200 




ENG11 


LD 


2 


FETCH ENGLISH CODE WORD 


80153160 






0F14 





F400 


04A4 




EOR 


L 


EOED 


80153170 






OF 16 





4C20 


FF21 


* 


BSC 


L 


ENG12+/F000.Z BR IF NOT TERMINATOR 


80153180 
80153190 






0F18 





C202 






LD 


2 


2 FETCH MID FROM ENG TBL 


80153200 






OF 19 





1890 






SRT 




16 PUT IN 


80153210 






0F1A 





C201 






LD 


2 


1 FETCH PID FROM ENG TBL 


80153220 






0F1B 





B400 


04A4 




CMP 


L 


EOED CHECK IF ANOTHER TERM 


80153230 






OF ID 





7006 






MDX 




ENG13 BR NOT TERM 


8C153240 






0F1E 





7005 




* 


MOX 




ENG 13 BR NOT TERM 


80153250 
80153260 






OF IF 





4C80 


FF12 


• 


BSC 


I 


ENG10+/F000 EXIT, NO ENGLISH FOUND 


80153270 
80153280 






0F21 





7201 




ENG12 


MOX 


2 


1 


80153290 






0F22 





1000 






NOP 






80153300 






0F23 





70EF 




* 


MDX 




ENG11 


80153310 
80153320 






0F24 





BCOO 


FFAC 


ENG13 


DCM 


L 


MSGID+/FOOO CK FOR SAME PID AND MID 


80153330 






0F26 





70FA 






MOX 




ENG12 


80153340 






0F27 





70F9 




* 


MDX 




ENG12 


80153350 
80153360 






0F28 





7203 






MDX 


2 


3 ENGLISH MESSAGE FOUND 


80153370 






0F29 





1000 






NOP 






80153380 






0F2A 





6A28 




* 


STX 


2 


ENG17*1 SAVE ENG MSG ADDRS 


80153390 
80153400 






0F2B 





67C0 


0724 




LDX 


L3 


FEED 


80153410 






0F2D 





4400 


078A 


* 


BSI 


L 


LGOP 


80153420 
80153430 






0F2F 





6C00 


07 A3 




STX 


L 


M12SW SET 1ST/2ND SWITCH 


80153440 






0F31 





6835 




* 


STX 




SWITC 


80153450 
80153460 






OF 32 





6500 


FD92 




LDX 


LI 


HDNG+/F000 XR1=ADR OF HEADING MSG 


80153470 




DATE 


28FEB66 01JUL66 


04N0V66 


03JUL68 14N0V69 


PROG ID 
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EC NO. 


415120 415178 


415233 


411944 431319 


PAGE 


40 



0F34 
0F36 



6600 
6316 



0F37 404C 



0F38 
0F3A 

0F3C 
0F3D 

0F3F 

0F40 

0F41 
0F43 



C400 
4C08 

C06A 
4C04 

6305 

4043 

74FF 
70FB 



0F44 4052 



0F45 
0F46 

0F48 
0F4A 

0F4B 
0F4D 
0F4F 



6323 
4400 

6C00 
68 1C 

6500 
6600 
6307 



0F50 4033 



0F51 
0F52 
0F54 
0F55 
0F56 
0F57 

0F59 
0F5B 

0F5D 

0F5F 

0F60 

0F61 
0F63 
0F64 

0F66 

0F67 

0F68 

0F6A 
0F6B 

0F6D 
0F6E 

0F6F 

0F70 



6815 
6500 
CI 00 
D008 
7101 
4C18 

F400 
4C18 



FFB7 



FFAA 
FF44 



FF68 



FFAA 



078A 
07A3 



FDCO 
FFB7 



0000 



FF60 



04A4 
070E 



LDX 
LDX 



BSI 



L2 AREA3+/FOO0 XR2=ADR OF PRINT AREA 
3 22 XR3=CHARACTER COUNT 



6700 0000 
4024 
69F2 



C400 
100A 
4410 

70E1 

0000 

4C10 

C 1001 
74FF 

1001 
D038 

6305 

4013 



0320 
FF97 



FF6D 
FFAA 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



LD 
BSC 
* 

LD 
BSC 

ENG14 LDX 
* 

BSI 

MDX 
MDX 

* 

ENG15 BSI 

LDX 
BSI 

ENG16 STX 
STX 

* 

LDX 
LDX 
LDX 

* 

BSI 

* 

STX 

ENG17 LDX 
LD 
STC 
MDX 
BSC 

* 

EOR 
BSC 

* 

ENG18 LDX 

* 

BSI 

STX 

LD 
SLA 

BSI 

* 

MDX 

SWITC DC 

ENG 19 BSC 

SLA 

MDX 

ENG20 SLA 
STO 

LDX 

BSI 

* 



04N0V66 
415233 



STORE 



STORE PID, MID, RID, RAD 



. WDCNT+/F000 GET MODIFIER COUNT 
. ENG15+/F000,+ BR IF COUNT ZERO 

FLAGS FETCH HEX/DEC INDICATOR 
. ENG19+/F000.E BR IF DEC MODIFIERS 

3 5 XR3=CHAR COUNT 

STORE STORE MODX IN PRINT AREA 



L WDCNT+/F000,-1 DECR MODIFIER COUNT 
ENG14 



PRINT 

3 LOWC 
L LGOP 

L M12SW 
SWITC 



BR IF MORE MODIFIERS 

PRINT HEADING 

XR3=N0RMAL MSG ADR - 
PRINT NORMAL MSG 

SET 1ST/2ND SWITCH 



LI SPS+/F000 XR1=SPACE CODE ADDRS 
L2 AREA3+/F000 XR2=PRINT AREA ADDRS 
3 7 



STORE 



XR3=CHAR COUNT 

STORE 7 SPACES IN PR AREA 



SWITC 
LI *-* 
1 

ENG18+1 
1 1 
L ENG18+/F003, 



XR1=ADR OF ENG MSG 

FETCH CHAR COUNT OR TERM 



BR IF COUNT ZERO 



L EOED 
L LG11.+- 



BR IF END OF ENG MSG 
XR3=CHAR COUNT 
STORE ENG MSG IN PR AREA 
SAVE ENG MSG AODR 



L3 *-* 

STORE 

1 ENG17+1 

L SWO 

10 
L PRINT+/FOOO,- * UNLESS BYPASS SELECTD 

ENG16 GO CK FOR ANOTHER LINE 

*-* 

L ENG20+/F000,- BR IF SINGLE PRECISION 



PRINT ONE LINE OF ENGLISH 



1 CORRECT SING/DBL PREC FLAG 

WDCNT+/FOOO,-! DECRE MODIFIER CNT 



1 
FLAGS 

3 5 

STORE 



03JUL68 
411944 



CORRECT SING/DBL PREC FLAG 
SAVE FLAG 

XR3=CHAR COUNT 

STORE MODX IN PRINT AREA 



14N0V69 
431319 



80153480 
80153490 
80153500 
80153510 
80153520 
80153530 
80153540 
80153550 
80153560 
8C153570 
80153580 
80153590 
80153600 
80153610 
80153620 
80153630 
80153640 
80153650 
80153660 
80153670 
80153680 
80153690 
80153700 
80153710 
80153720 
80153730 
80153740 
80153750 
80153760 
80153770 
80153780 
80153790 
80153800 
80153810 
80153820 
80153830 
80153840 
80153850 
80153860 
80153870 
80153880 
80153890 
80153900 
80153910 
80153920 
80153930 
80153940 
80153950 
80153960 
80153970 
80153980 
80153990 
80154000 
80154010 
80154020 
80154O30 
80154040 
80154050 
80154060 
80154070 
80154080 
80154090 
80154100 
80154110 
80154120 
80154130 
80154140 
80154150 
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0F71 6905 
0F72 6500 FDCO 
0F74 6305 

0F75 400E 

0F76 6500 0000 
0F78 COEE 
0F79 4C20 FF7D 

0F7B 68EB 
0F7C 7002 

0F7D 1010 
0F7E D0E8 



0F7F 
0F80 
0F82 
0F83 



C027 

74FF FFAA 
70E5 
70C0 



0F84 0000 

0F85 7400 FF67 
0F87 7006 



* 
ENG21 



* 
ENG22 

* 
ENG23 



STORE 
ST3 



0F88 





680E 


0F89 





C100 


0F8A 





1008 


0F8B 





7101 


0F8C 





1000 


0F8D 





7003 


0F8E 





1010 


0F8F 





D0D7 


0F90 





C100 



0F91 4400 0776 



0F93 
0F94 

0F95 

0F97 

0F98 
0F9A 



73FF 
70 FO 

4C80 FF84 

0000 

6500 FDCO 
6303 



0F9B 40E8 



0F9C 
0F9D 
0F9E 
QF9F 
OFAO 

0FA1 
0FA3 

0FA5 

0FA7 

0FA8 
OF A 9 
OFAA 



6A1A 
C019 
9017 
1001 
D016 

6700 FFB7 
4400 078A 

4C80 FF97 

0000 

F9F0 
C800 
0000 



* 
ST1 



* 
ST2 

* 



* 
PRINT 

* 



PRIN1 



* 
FLAGS 

* 

AREA2 

MC800 

WDCNT 

* 



STX 
LDX 
LDX 

BSI 

LDX 

LD 

BSC 

STX 

MDX 

SLA 
STO 

LD 

MDX 
MDX 
MDX 

DC 

MDX 
MDX 

STX 

LD 

SLA 

MDX 

NOP 

MDX 

SLA 
STO 

LD 

BSI 

MDX 

MDX 

BSC 

DC 

LDX 
LDX 

BSI 

STX 

LD 

S 

SLA 

STO 

LDX 
BSI 

BSC 

DC 

DC 
DC 
DC 



1 ENG21+1 SAVE HDNG ADDRS 
LI SPS+/FO0O XR1=A0R OF SPACES 
3 5 XR3=CHAR COUNT 

STORE STO 5 SPACES IN PRT AREA 

LI *-* XR1=HDNG ADDRS 

SWITC 
L ENG22+/F000,Z 

SWITC 
ENG23 

16 
SWITC 

FLAGS FETCH SING/DBL PREC IND 
L WDCNT+/F000.-1 DECRE MODIFIER CNT 
ENG19 BR IF MORE MODIFIERS 
ENG15 BR IF ALL MODIFIERS STORED 

*-* 

L SWITC+/FOOO 



BR IF 1ST CHARACTER 



ST1 

SWITC 
1 

8 
1 1 

ST2 

16 

SWITC 
1 

LLOA 

3 -1 
ST3 

I STORE+/F000 

*-* 



LI SPS+/FOCO XR1=ADR OF SPACES 
3 3 



FETCH TWO CHARACTERS 
POSITION 2ND CHARACTER 
INCRE CODE AREA AODRS 



FETCH TWO CHARACTERS 

STORE CHAR IN PRINT AREA 

DECRE CHARACTER COUNT 
BR IF MORE CHARACTERS 



STORE 

2 AREA3 
AREA3 
AREA3-1 
1 
AREA3 



XR3=CHAR COUNT 

STO 3 SPACES IN PRINT AREA 

CALCULATE TOTAL 

* CHARACTER COUNT 

* IN PRINT AREA 

NOP IF 1443 IS LOG DEVICE 
SAVE CHARACTER COUNT 



L3 AREA3+/F0OO XR3=ADR OF PRINT AREA 
L LGOP PRINT LINE 

I PRINT+/F000 

*-* 

ENGT1+/F000 

/C800 

*-* 



80154160 
80154170 
80154180 
80154190 
80154200 
8C154210 
80154220 
80154230 
80154240 
80154250 
80154260 
80154270 
8C154280 
80154290 
80154300 
80154310 
80154320 
80154330 
80154340 
80154350 
80154360 
80154370 
80154380 
80154390 
80154400 
80154410 
80154420 
80154430 
80154440 
80154450 
80154460 
80154470 
80154480 
80154490 
80154500 
80154510 
80154520 
80154530 
80154540 
80154550 
80154560 
8C154570 
80154580 
80154590 
80154600 
80154610 
80154620 
80154630 
80154640 
80154650 
80154660 
80154670 
80154680 
80154690 
80154700 
80154710 
80154720 
80154730 
80154740 
80154750 
80154760 
80154770 
80154780 
80154790 
80154800 
80154810 
80154820 
80154830 



OFAC 





0000 


0000 


OFAE 





0000 


0000 


OFBO 





0000 


0000 


0FB2 





0000 


0000 


0FB4 





ooco 


0000 


0FB6 





FFB8 




0FB7 




0002 





MSGID DEC 

DEC 

DEC 

DEC 

DEC 
* 

DC AREA3+/F001 
AREA3 BSS 2 
* 

******* 4** ******* *************** * ******** ********** 
*************************************************** 

* LOADER DETERMINATION ROUTINE 
*************************************************** 
*************************************************** 

* THIS ROUTINE SETS UP REQUIRED CONTROLS IN THE 

* MONITOR FOR THE PROGRAM LOAD DEVICE (CARD, PAPER 

* TAPE, DIMAL). 



0FB9 





C400 


006 F 


MCBGN 


LD 


L 


RLBA 




OFBB 





F400 


049D 




EOR 


L 


MLD2 




OFBD 





4C18 


0FC8 


* 


BSC 


L 


MBGNl, +- 


BR IF NOT DIMAL 


OFBF 





C400 


0443 




LD 


L 


NOP 




0FC1 





D400 


043 D 




STO 


L 


WT5 


NOP PAPER 


0FC3 





D400 


0592 




STO 


L 


WT6 


* TAPE WAITS 


0FC5 





D400 


0442 




STG 


L 


EDWT 




0FC7 





7006 




* 
MBGNl 


MDX 




MBGN2 




0FC8 





C400 


0C71 


LD 


L 


RLBA+2 




OFCA 





F400 


0E79 




EOR 


L 


MI0C9+1 




OFCC 





4C18 


0FD7 


* 
MBGN2 


BSC 


L 


MBGN3.+- 


BR IF CARD I PL 


OFCE 





C400 


0443 


LD 


L 


NOP 




OFDO 





D400 


057F 




STO 


L 


L0AD1 


NOP LAST CARD 


0FD2 





D400 


0580 




STO 


L 


L0A01+1 


* INDICATOR RESET 


0FD4 





D400 


0598 




STO 


L 


WT6A 


* INSTRUCTIONS 


0FD6 





700C 




* 
MBGN3 


MDX 




MBGN4 




0FD7 





C400 


0443 


LD 


L 


NOP 




0FD9 





D400 


043D 




STO 


L 


WT5 


NOP PAPER 


OFDB 





04 00 


0592 




STO 


L 


WT6 


* TAPE WAITS 


OFDD 





D400 


0442 


* 


STC 


L 


EDWT 




OFDF 





6700 


07FF 


LDX 


L3 


/07FF 




0FE1 





6F00 


0125 


* 
MBGN4 


STX 


L3 


NLOC 




0FE3 





63FD 




LDX 


3 


-3 




0FE4 





C3 53 






LD 


3 


LDR+3 


SAVE LOADER INSTRI 


0FE5 





D700 


072B 




STO 


L3 


SVLDR+3 


THAT WILL BE DES - 


0FE7 





7301 






MDX 


3 


1 


BY LOG ROUTINE 


0FE8 





70FB 




* 


MDX 




MBGN4+1 




0FE9 





4480 


012C 


BSI 


I 


BEGIN 


CALL MONITOR BEGI1 


0FE8 





031D 






DC 




PID 




OFEC 




0FB9 






END 




MCBGN 




NO 


STATEMENTS FLAGGED IN THE 


ABOVE ASSEMBLY 



80154840 
80154850 
80154860 
80154870 
80154880 
80154890 
80154900 
80154910 
80154920 
80154930 
80154940 
80154950 
80154960 
80154970 
80154980 
80154990 
80155000 
80155010 
80155020 
80155030 
80155040 
8C155050 
80155060 
80155070 
80155080 
80155090 
80155100 
80155110 
80155120 
80155130 
80155140 
80155150 
80155160 
80155170 
80155180 
80155190 
80155200 
80155210 
80155220 
80155230 
80155240 
80155250 
80155260 
80155270 
8C155280 
80155290 
80155300 
80155310 
80155320 
80155330 
80155340 
80155350 
80155360 
80155370 
80155380 



DATE 
EC NO. 



28FEB66 
415120 



01JUL66 
415178 



04NOV66 
415233 



03JUL68 
411944 



14N0V69 
431319 
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AREA1 


0572 


0581 


0E6B 


0F08 OFOA 






AREA2 


0FA8 


09 8 D 


OFOE 








AREA3 


0FB7 


094D 


094F 


0951 0F34 0F4D 


0F9C 0F9D 0F9E 




ASTRS 


0727 


06D8 


090C 








ASTR2 


0998 


090 A 










A001 


053F 


0532 










A002 


098A 












A003 


03DA 


03BB 










A004 


0E3D 












A005 


04 8F 












A006 


0427 












BEGIN 


012C 


0FE9 










BGIN 


03FD 


012C 


03FE 


0433 0453 0466 


0809 0816 C8D6 




BGIN1 


040F 


0415 










BGIN2 


0416 


0412 










BGIN3 


0428 


041B 


0420 


042E 






BGIN4 


042F 


042B 










BRCH 


0444 


0437 










CDCT 


0E6F 


ODCB 


0E43 


0E53 






COTBL 


0E99 


0920 


0E03 


0E09 






CIED1 


0889 


085B 


0873 








CIED2 


08CA 


08 AO 


08 DC 








CKDEF 


08BF 


082B 


0839 


0844 0899 08C0 


08C4 08C6 08C8 




CKDSH 


0E7A 


0E35 


0E41 


0E82 0E87 0E89 






CKDS1 


0E81 


0E7D 










CKDS2 


0E89 


0E8O 










CKPNT 


0B89 


03 EO 










CNT 


0E70 


0DF6 


OEOE 


0E61 






CRCK 


0133 


05BD 


05C3 








CRSPS 


0726 


0797 


0906 








C001 


0971 


0975 










C002 


04AC 












C003 


0575 












DBSY 


05EE 


05 DC 


05E2 


05FA 






DBSY1 


05FB 


05F2 










DCV 


075A 












DC VI 


075C 


07 68 










DCV 2 


075F 


0764 










DCV3 


0765 


0761 










DCV4 


07 6C 


075B 










DEC 


0741 


06EE 


0774 








OECNT 


07 B A 


075F 


0765 


0792 079C 07 DO 






DECNW 


07B6 


0777 


0787 








DEC1 


074C 


0741 










0EC2 


0750 


«74 B 










DEC 3 


0758 


0751 










DEC4 


0759 


0757 










DL 


04 EC 


04EE 










DVAD 


060B 


05D8 


062 B 


0654 08 A7 






DVAD1 


060E 


05D9 


0600 


0617 061C 0636 


0639 




DVAD2 


0613 


0892 


08 B9 








0VAD3 


0627 


05E5 


061E 


063C 0896 08AC 


08BB 




0VA04 


0622 


05DB 


061 A 


0626 0638 






D001 


04 9B 












EDCD 


0446 


0124 


0444 


0990 






EDCNT 


081E 


0812 


086A 


08AF 08B4 






EDMSK 


088E 


0864 


0865 


0867 0868 086D 






EDWT 


0442 


0434 


0FC5 


OFDD 






ED01 


0820 


0819 










ED02 


08CE 


08D8 










EMS 


066E 


0661 


0663 








END 


012E 












ENDED 


08CF 


080B 










ENDE1 


08D6 


08D2 










ENDE2 


08 DC 


08 09 










ENDE3 


08E1 


08DD 










ENDE4 


08E6 


08E2 










EN0E5 


08F5 


08 EC 








DATE 


28FEB66 01JUL66 


. 04N0V66 03JUL66 


1 14N0V69 


EC NO. 


415120 415178 


415233 411944 


431319 





ENDE6 


09 OF 


0915 








ENDE7 


091A 


C8F4 








ENDE8 


09 24 


092C 


0945 






ENDE9 


092C 


0927 


0928 






END 10 


0930 


0944 








END11 


0938 


C8FF 


0937 






END12 


093C 


0900 


0934 






END13 


0958 


0955 








END14 


0940 










END15 


098B 


09 86 








ENG 


OECB 


0707 


OEDB 0EE3 0EF1 






ENGLO 


0135 


0423 


0705 






ENGT1 


09 FO 


0922 


0925 0FA8 






ENGT2 


0B93 


098B 








ENG1 


0ED2 


0ED5 








ENG10 


0F12 


OFOC 


0F10 0F1F 






ENG11 


OF 13 


0F23 








ENG12 


0F21 


0F16 


OF 26 OF 27 






ENG13 


0F24 


0F10 


0F1E 






ENG 14 


0F3F 


OF 43 








ENG15 


0F44 


0F3A 


0F83 






ENG16 


0F48 


0F66 








ENG 17 


OF 52 


CF2A 


0F60 






ENG18 


0F5D 


0F55 


0F57 






ENG19 


0F68 


0F3D 


0F82 






ENG2 


0ED6 


OECE 








ENG20 


0F6D 


0F68 








ENG21 


OF 76 


0F71 








ENG22 


0F7D 


OF 79 








ENG23 


0F7F 


0F7C 








ENG3 


OEEO 


0EF4 








ENG4 


0EF1 


OF 11 








ENG5 


0EF3 


OEEF 


OEFO 






ENG6 


0EF5 


OF 07 








EOED 


04A4 


0410 


046A 04D9 08D0 0DD6 0E5D OF 14 0F1B 


0F59 




EPA 


0326 


036E 








ERAQ 


05C8 


05B3 


C5C5 






ERNOL 


0683 


0667 








ERROR 


0130 










ERRT 


06 50 


0130 


065E 






ERRT2 


067B 


06 6B 


0670 






ERRT3 


0675 


0675 








ERR 09 


02E7 


02EA 








EWTA 


07A0 


078F 


300A 






EWT8 


0139 


300B 








EWTC 


0E96 


30 OC 








EWT7 


05C2 


05B9 


05BF 3007 






EMT8 


0318 


3008 








EWT9 


04B6 


3009 








EOOO 


050B 


0517 








E001 


0518 


0514 








E003 


03DB 


03B0 








E005 


0138 










E006 


0E8F 










E009 


02E2 










FEED 


0724 


0709 


0904 0F2B 






FLAGS 


0FA7 


0EE6 


0F3C 0F6E 0F7F 






HALT 


0315 


031B 


067E 






HDNG 


0092 


0F32 








HEX 


072B 


06DA 


06DE 06E1 06E2 06F3 073F 






HEX01 


0733 


073B 








HEX02 


0736 


0735 


0744 074D 0771 






HOOFF 


04 A 1 


0478 








H0010 


0E72 


0E48 


0E4B 






H0017 


08CC 


08 C3 








H0101 


04A3 


0495 








H1800 


04A0 


0470 








H80FF 


04A2 


0482 
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ILA 


013D 


087D 










I LB 


0157 


C87E 










ILC 


0171 


08 7F 










ILD 


018B 


0880 










ILDEV 


02E5 


02 BC 










ILDSH 


02E6 


02C2 










ILE 


01A5 


C881 










ILER 


02 B2 


0298 










ILERS 


02E0 


02E7 










ILER1 


02DA 


0295 


02BF 








ILER2 


02CA 


02 Dl 










ILER3 


02D2 


02CE 










ILER4 


02BB 


02C7 










ILF 


01BF 


0882 










ILG 


01D9 


0883 










ILH 


01 F3 


0884 










ILI 


02 OD 


0885 










ILID 


02E3 


02D2 










ILILS 


02 E4 


02B3 










ILJ 


0227 


0886 










ILK 


0241 


0887 










ILL 


025P 


0888 










ILRC 


02.8$ 


013F 
028C 


0159 0173 
04C2 04C5 


01 8D 01 A7 


01C1 01DB ( 




ILRS3 


03^2 


0290 


0292 029C 


02A5 02B6 


02CA 02D9 




ILRS4 


02AC 


02A9 










ILRS5 


02B0 


02AB 










ILRTB 


087D 


0852 










ILSW 


03CC 


0293 


0294 02B2 


02C5 C2C6 


02DA 05B6 




ILTER 


05B2 


03E2 


05B4 05C6 








ILTTR 


07 F4 


03 E3 


07F5 








ILTOO 


0143 












ILT01 


0150 












ILT02 


0177 












ILT03 


0191 












ILT04 


01AB 












ILT05 


01C5 












ILT06 


01DF 












ILT07 


01F9 












ILT08 


0213 












ILT09 


022D 












ILT10 


0247 












ILT11 


0261 












I0C43 


0999 


0916 










I PA 


0324 


036F 










IXFV 


03E2 


02 CC 


0360 0610 


084A 0854 






KFFFF 


06 OA 


05D1 


06 4C 








LCTR1 


02 F6 


02ED 










LCTR2 


02FC 


02 EC 


02 F9 








LCTR3 


0300 


02EF 


02FB 








LCTR4 


0303 


02F1 










LDADR 


059A 


0490 


057B C582 


097A 






LDENG 


0DC7 


0135 


0922 0940 


0947 0949 


094D ODCD I 




LDR 


0050 


0440 


058D 0594 


071C 0FE4 






LDX1 


0996 


098F 










LENG1 


0DD4 


0DF7 


0E11 








LENG2 


ODEC 


0DE3 










LENG3 


0DF5 


0DD8 


0DD9 








LENG4 


0DF9 


0E10 










LENG5 


0E01 


OEOO 










LENG6 


0EC7 


08F9 


08FB ODFD 








LENG7 


0DE1 


0DE9 










LFOSW 


0722 


0602 


06FD 0704 








LG 


0685 


01 2F 


02F6 C66D 


0694 069C 


069E 06AF 




LGBSY 


0694 


0688 


068F 








LGED1 


088A 


C861 


0878 








LGED2 


08CB 


08A5 


08E1 








LG1NT 


07 A2 


04 B3 


04B7 079D 


07D1 




DATE 


28FEB66 01JUL66 04N0V66 03JUL68 14N0V69 


EC NO. 


415120 415178 


415233 


411944 


431319 



0DD3 0E69 



LGOP 

LG0P1 

LG0P2 

LG0P3 

LG0P4 

LGOP 5 

LGSX1 

LGSX2 

LG1 

LG10 

LG11 

LG12 

LG13 

LG2 

LG3 

LG4 

LG5 

LG6 

LG7 

LG8 

LG9 

LI0C1 

LI0C2 

LLOA 

LL0A1 

LL0A2 

LOAD 

L0AD1 

L0AD2 

L0AD3 

LOG 

LOWC 

LPA 

LPER 

LRTRN 

LSCD 

MAT 

MATOO 

MAT01 

MAT02 

MAT03 

MAT04 

MAT05 

MAT06 

MBGN1 

MBGN2 

MBGN3 

MBGN4 

MCBGN 

MCH 

MCON 

MC0N1 

MC0N2 

MC0N4 

MCSL1 

MCSL2 

MCSL4 

MCS15 

MC800 

MDES 

MDP 

MDVA 

MDVA1 

MDVA2 

MDVA3 

MDVA4 

MDVA5 

MDVA6 



078A 
0780 
0794 
079A 
079B 
079E 
0698 
069A 
06A0 
070C 
070E 
06FA 
0707 
06AA 
06C3 
06D1 
06DA 
06DF 
06E3 
06F3 
06F7 
099A 
099B 
0776 
077F 
0784 
0573 
057F 
0582 
0587 
012F 
0023 
0325 
0681 
069E 
0489 
0134 
032E 
032F 
0330 
0331 
0332 
0333 
0334 
0FC8 
OFCE 
0FD7 
0FE3 
0FB9 
0609 
04AE 
04AF 
04BA 
04C9 
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